powepoint -> abwandlung vba code zum kopieren und einfügen von folien

  • Sonstige

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Beatminister.

    powepoint -> abwandlung vba code zum kopieren und einfügen von folien

    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.

    Visual Basic-Quellcode

    1. Option Explicit
    4. Public otarget As Presentation
    7. Private Sub CommandButton1_Click()
    10. Dim osource As Presentation
    13. Dim currPos As Long
    16. Set osource = SlideShowWindows(1).Parent
    19. Application.WindowState = ppWindowMinimized
    22. currPos = SlideShowWindows(1).View.Slide.SlideIndex
    25. Err.Clear
    28. On Error Resume Next
    31. Debug.Print otarget.Name
    34. If Err <> 0 Then Set otarget = Application.Presentations.Add
    37. otarget.Slides.InsertFromFile osource.FullName, otarget.Slides.Count, currPos, currPos
    40. End Sub

    versuche mal, die entsprechende Präsentation konkret auszuwählen (ActivePresentation)
    und dan einfach ein Slide zu adden:

    Visual Basic-Quellcode

    1. Presentation.Slides.Add 1, 1


    oder mit

    Visual Basic-Quellcode

    1. Presentations("name").Slides.Add 1, 1

Facebook
Telefonspende