Designs.Clone-Methode (PowerPoint)

Erstellt eine Kopie eines Design -Objekts.

Syntax

Ausdruck. Clone( _pOriginal_, _Index_ )

Ausdruck Eine Variable, die ein Designs-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
pOriginal	Erforderlich	Design	Design -Objekt. Der ursprüngliche Entwurf.
Index	Optional	Long	Die Indexposition in der Designs -Auflistung, in der das Design kopiert werden. Wenn Index weggelassen wird, wird die kopierte Entwurfsvorlage am Ende der Designs -Auflistung hinzugefügt.

Rückgabewert

Entwerfen

Beispiel

In dem folgenden Beispiel wird eine Entwurfsvorlage und anschließend eine Kopie dieser neu erstellten Entwurfsvorlage erstellt.

Sub CloneDesign()

    Dim dsnDesign1 As Design
    Dim dsnDesign2

    Set dsnDesign1 = ActivePresentation.Designs _
        .Add(designName:="Design1")

    Set dsnDesign2 = ActivePresentation.Designs _
        .Clone(pOriginal:=dsnDesign1, Index:=1)

End Sub

Siehe auch

Designs-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.