Wie können Sie mit #VBA einer #Präsentation eine #Folie #hinzufügen?

Mit folgender Zeile fügen Sie an die gerade aktive Präsentation (ActivePresentation) eine Folie am Ende (.Slides.Count + 1) an, und verwenden dabei das benutzerdefinierte Layout mein Layout:

Set mySlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count _
+ 1, GetLayout("mein Layout"))

Die Funktion GetLayout ist dabei ebenfalls selbstgemacht und muss zur Verfügung gestellt werden – sie fischt aufgrund des Layoutnamens das richtige Layout aus den im Master vorhandenen Layouts heraus:

Public Function GetLayout( _
    LayoutName As String, _
    Optional ParentPresentation As Presentation = Nothing) As CustomLayout

    If ParentPresentation Is Nothing Then
        Set ParentPresentation = ActivePresentation
    End If

    Dim myLayout As CustomLayout
    For Each myLayout In ParentPresentation.SlideMaster.CustomLayouts
        If myLayout.Name = LayoutName Then
            Set GetLayout = myLayout
            Exit For
        End If
    Next
End Function