Shape.Duplicate-Methode (PowerPoint)

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 verwendet werden. Duplizieren

expression Eine Variable, die ein Shape-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

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