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, da der button auch auf andere slides betätigt wird.
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, da der button auch auf andere slides betätigt wird.
Visual Basic-Quellcode
- 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