Shape.Duplicate-Methode (PowerPoint)

  • Artikel

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

Ausdruck 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

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.