![]() |
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
|
|
|
|
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 ]
|
|
|