Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Erstellt ein Duplikat des angegebenen ShapeRange -Objekts, fügt den Bereich von Formen der Shapes -Auflistung hinzu und gibt dann das neue ShapeRange -Objekt zurück. Die duplizierten Objekte werden am Ende der Shapes -Auflistung platziert.
Syntax
Ausdruck verwendet werden. Duplizieren
Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.
Rückgabewert
ShapeRange
Beispiel
In diesem Beispiel wird eine neue, leere Folie am Ende der aktiven Präsentation hinzugefügt, der neuen Folie eine Rautenform hinzugefügt, die Raute dupliziert und anschließend Eigenschaften für das Duplikat festgelegt. Die erste Raute hat die Standardfüllfarbe für das aktive Farbschema. Der zweite Diamant wird von dem ersten versetzt und hat die Standardschattenfarbe.
Set mySlides = ActivePresentation.Slides
Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)
Set firstObj = newSlide.Shapes _
.AddShape(msoShapeDiamond, 10, 10, 250, 350)
With firstObj.Duplicate
.Left = 150
.Fill.ForeColor.SchemeColor = ppShadow
End With
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.