Shape.Duplicate-Methode (Projekt)

Dupliziert eine Form und gibt einen Verweis auf die Kopie zurück.

Syntax

Ausdruck verwendet werden. Duplizieren

expression Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Shape

Beispiel

Im folgenden Beispiel wird der durch das Codebeispiel erstellte Bericht in der Shape.Apply-Methode verwendet. Im Beispiel wird ein Shape dupliziert, dann wird es gedreht, horizontal gekippt und das neue Shape ausgewählt. Der horizontale und der vertikale Versatz der neuen Form betragen jeweils 12 Punkte.

Sub DuplicateShape()
    Dim theReport As Report
    Dim shp1 As shape
    Dim duplicatedShape As shape
    Dim reportName As String
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    
    Set duplicatedShape = shp1.Duplicate
    
    pos1 = shp1.left
    pos2 = duplicatedShape.left
    Debug.Print "Horizontal offset: " & CStr(pos2 - pos1)
    
    pos1 = shp1.top
    pos2 = duplicatedShape.top
    Debug.Print "Vertical offset: " & CStr(pos2 - pos1)
   
    duplicatedShape.Rotation = 30
    duplicatedShape.Flip msoFlipHorizontal
    
    duplicatedShape.Select
End Sub

Siehe auch

FormobjektShapeRange.Duplicate-Methode

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.