Hallo an alle,
gesundes neues Jahr erstmal.
Der folgende Code kopiert die aktuelle folie und kopiert sie in eine neue powerpoint. Allerdings erstellt der Code bei jedem click eine neue ppt. Ich möchte, dass die neue ppt nur beim erstmaligen click entsteht und alle weiteren ppt folien hintereinander eingefügt werden.
Oder noch besser wäre es, wenn ein extra button mir erlaubt eine vorher erstellte ppt "name XY" zu öffnen und dann alle slides, welche dann angeklickt werden) hintereinander in diese ppt einfügt.
Vielen Dank für euer Hilfe.
Option Explicit
Public otarget As Presentation
Private Sub CommandButton1_Click()
Dim osource As Presentation
Dim currPos As Long
Set osource = SlideShowWindows(1).Parent
Application.WindowState = ppWindowMinimized
currPos = SlideShowWindows(1).View.Slide.SlideIndex
Err.Clear
On Error Resume Next
Debug.Print otarget.Name
If Err <> 0 Then Set otarget = Application.Presentations.Add
otarget.Slides.InsertFromFile osource.FullName, otarget.Slides.Count, currPos, currPos
End Sub
|