mit #VBA #Folie hinzufügen


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

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter PowerPoint, VBA abgelegt und mit , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s