Freigeben über

ShapeRange.Duplicate-Methode (Publisher)

  • Artikel

Erstellt ein Duplikat des angegebenen Shape - oder ShapeRange-Objekts , fügt die neue Form oder den neuen Formenbereich der Shapes-Auflistung unmittelbar nach der ursprünglich angegebenen Form oder dem bereich von Formen hinzu und gibt dann das neue Shape- oder ShapeRange-Objekt zurück.

Syntax

Ausdruck. Doppelte

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

ShapeRange

Beispiel

Das folgende Beispiel fügt eine neue leere Seite am Ende der aktiven Publikation und der neuen Seite eine Rautenform hinzu, dupliziert die Raute und legt dann Eigenschaften für das Duplikat fest. Die erste Raute weist die Standardfüllfarbe für das aktive Farbschema auf; die zweite Raute ist versetzt zu der ersten und weist die erste Akzentfarbe für das aktive Farbschema auf.

Dim pgTemp As Page 
Dim shpTemp As Shape 
 
Set pgTemp = ActiveDocument.Pages.Add(Count:=1, After:=1) 
Set shpTemp = pgTemp.Shapes _ 
 .AddShape(Type:=msoShapeDiamond, _ 
 Left:=10, Top:=10, Width:=250, Height:=350) 
 
With shpTemp.Duplicate 
 .Left = 150 
 .Fill.ForeColor.SchemeColor = pbSchemeColorAccent1 
End With

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.