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 Shape -Objekts, fügt die neue Form der Shapes -Auflistung hinzu und gibt dann ein neues ShapeRange -Objekt zurück. Die duplizierten Objekte werden am Ende der Shapes -Auflistung platziert.
Syntax
Ausdruck. Duplikat
expression Eine Variable, die ein Shape-Objekt darstellt.
Rückgabewert
ShapeRange
Beispiel
In diesem Beispiel wird am Ende der aktiven Präsentation eine neue leere Folie hinzugefügt, der neuen Folie eine Rautenform hinzugefügt, die Raute dupliziert und dann eigenschaften für das Duplikat festgelegt. Der erste Diamant hat die Standardfüllfarbe für das aktive Farbschema. die zweite Raute wird von der ersten Raute versetzt und weist die Standardschattenfarbe auf.
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.