ShapeRange.Duplicate-Methode (PowerPoint)
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. Doppelte
Ausdruck Eine Variable, die ein ShapeRange-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.