ShapeRange.Duplicate-Methode (Projekt)

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

Syntax

Ausdruck verwendet werden. Duplizieren

Ausdruck Eine Variable, die ein 'ShapeRange'-Objekt darstellt.

Rückgabewert

ShapeRange

Hinweise

Der horizontale und der vertikale Versatz des duplizierten Formbereichs sind jeweils 12 Punkte vom ursprünglichen Formbereich.

Beispiel

Im folgenden Beispiel wird der durch das Codebeispiel erstellte Bericht in der ShapeRange.Apply-Methode verwendet. Im Beispiel wird ein Formbereich dupliziert, der zwei Formen enthält, dann vertikal gekippt und der neue Formbereich markiert.

Sub DuplicateShapeRange()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    Dim sRange2 As ShapeRange
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    Set shp2 = theReport.Shapes(2)
    Set shp3 = theReport.Shapes(3)
    
    Set sRange1 = theReport.Shapes.Range(Array(2, 3))
    
    Set sRange2 = sRange1.Duplicate()
    
    sRange2.Flip msoFlipVertical
    sRange2.Select
End Sub

Siehe auch

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