Shape.PickUp-Methode (Project)

Kopiert die Formatierung einer Form.

Syntax

Ausdruck verwendet werden. Abholung

expression Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Nothing

Hinweise

Verwenden Sie die Apply-Methode , um kopierte Formatierungen auf eine andere Form anzuwenden.

Beispiel

Im folgenden Beispiel werden zwei zylindrische Shapes erstellt, das erste Shape rot gefärbt, die Formatierung des ersten Shapes kopiert und auf das zweite Shape angewendet.

Sub ApplyShapeFormat()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 10, 30, 100, 100)
    shp1.Name = "Shape 1"
    shp1.Fill.ForeColor.RGB = &H1010FF  ' Red color.
    
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 30, 140, 100, 100)
    shp2.Name = "Shape 2"               ' Blue default color.
    
    With theReport
        .Shapes("Shape 1").PickUp
        .Shapes("Shape 2").Apply
    End With
End Sub

Siehe auch

Methode zum Anwenden desFormobjekts Methode "ShapeRange.Pickup"

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.