Tipp 0236 Folien in eine neue Präsentation kopieren
Autor/Einsender:
Datum:
  Angie
21.05.2002
Entwicklungsumgebung:   PowerPoint 97
Mit der InsertFromFile-Methode können auf recht einfache Weise Folien (Slides) aus einer PowerPoint-Datei in eine andere Präsentation kopiert werden. Dieser Tipp zeigt, wie alle Folien aus einer oder mehreren PowerPoint-Dateien mit Endung *.ppt, die in einem vorgegebenen Verzeichnis liegen, in eine neue Präsentation jeweils am Ende eingefügt werden können.
 
Option Explicit

Const sQuellPfad As String = "E:\Temp\PP\PP_Dateien"
Const sZielDatei As String = "E:\Temp\PP\NeuePraes.ppt"

Dim ppZiel As Presentation

Sub PPTsKopierenInNeuePPT()
  Dim sDatei As String
  Dim iZaehler As Integer

  iZaehler = 0
  sDatei = Dir(sQuellPfad & "\" & "*.ppt")

  If sDatei <> "" Then
    iZaehler = 1
    Set ppZiel = Presentations.Add
    Call SlidesInsertFromFile(sQuellPfad & "\" & sDatei)
  End If

  Do While sDatei <> ""
    sDatei = Dir
    If sDatei <> "" Then
      iZaehler = iZaehler + 1
      Call SlidesInsertFromFile(sQuellPfad & "\" & sDatei)
    End If
  Loop

  If iZaehler = 0 Then
    MsgBox "Es sind keine Dateien mit Endung *.ppt " & _
        "im Verzeichnis" & vbCrLf & sQuellPfad & vbCrLf & _
        "vorhanden!!", vbOKOnly + vbInformation, _
        Title:="Folien in eine neue Präsentation kopieren"

  Else
    ppZiel.SaveAs sZielDatei
    ppZiel.Close
    Set ppZiel = Nothing
  End If
End Sub

Sub SlidesInsertFromFile(sQuellDatei As String)
  Dim iZielAnzSlides As Integer

  iZielAnzSlides = ppZiel.Slides.Count
  ppZiel.Slides.InsertFromFile sQuellDatei, iZielAnzSlides
End Sub
 
Hinweis
Im Download befindet sich eine *.bas-Datei, die in PowerPoint im VB-Editor importiert werden kann.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
PowerPoint-Version
95
97
2000
2002 (XP)
2003
2007
2010


Download  (2,1 kB) Downloads bisher: [ 1036 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Freitag, 8. Juli 2011