Shape.Duplicate-Methode (Visio)

Dupliziert ein Objekt.

Syntax

Ausdruck. Doppelte

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Form

Bemerkungen

Mit der Duplicate-Methode wird das angegebene Objekt oder die angegebene Auswahl dupliziert und dem Zeichenblatt, auf dem sich auch das Original befindet, eine Kopie hinzugefügt. Das Verwenden der Duplicate-Methode entspricht dem Klicken auf Duplizieren im Menü Einfügen auf der Registerkarte Start.

Bei Verwendung mit einem Shape-Objekt dupliziert die Duplicate-Methode das Shape.

Bei Verwendung mit einem Selection-Objekt dupliziert die Duplicate-Methode die Auswahl.

Beispiel

Mit dem folgenden Beispiel wird gezeigt, wie Shape-Objekte dupliziert werden. Der Code kann auch für Selection-Objekte verwendet werden.

Bevor Sie dieses Makro ausführen, sollten Sie sicherstellen, dass im Microsoft Visio-Fenster ein Zeichenblatt aktiv ist.

 
Public Sub Duplicate_Example() 
 
 Dim vsoOriginalShape As Visio.Shape 
 Dim vsoDuplicateShape As Visio.Shape 
 
 Set vsoOriginalShape = ActivePage.DrawLine(1, 1, 5, 5) 
 
 Set vsoDuplicateShape = vsoOriginalShape.Duplicate 
 vsoDuplicateShape.Cells("BeginY") = "2" 
 
End Sub

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.