ShapeRange.Duplicate-Methode (PowerPoint)

  • Artikel

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

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