ShapeRange.Duplicate-Methode (Project)

Artikel
10/17/2024

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

Syntax

Ausdruck. Duplikat

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

ShapeRange

Hinweise

Der horizontale Und der vertikale Offset des duplizierten Formbereichs sind jeweils 12 Punkt vom ursprünglichen Formbereich entfernt.

Beispiel

Im folgenden Beispiel wird der bericht verwendet, der mit dem Codebeispiel in der ShapeRange.Apply-Methode erstellt wurde. Im Beispiel wird ein Formbereich dupliziert, der zwei Formen enthält. Anschließend wird der neue Formenbereich vertikal gekippt und ausgewählt.

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-Objekt Shape.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.

Freigeben über