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
Design
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
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.