ShapeRange.PickUp-Methode (Project)

Kopiert die Formatierung des Formbereichs.

Syntax

Ausdruck. Pickup

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

Nothing

HinwBemerkungeneise

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

Beispiel

Im folgenden Beispiel werden drei zylindrische Formen erstellt, die erste Form rot gefärbt, die zweite und dritte Form einem Formenbereich hinzugefügt, die Formatierung der ersten Form kopiert und dann die Formatierung auf den Formenbereich angewendet.

Sub ApplyShapeFormat()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 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.
    
    ' Blue default color.
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 30, 140, 100, 100)
    
    ' Blue default color.
    Set shp3 = theReport.Shapes.AddShape(msoShapeCan, 140, 140, 100, 100)
    
    Set sRange = theReport.Shapes.Range(Array(2, 3))
    
    theReport.Shapes("Shape 1").PickUp
    sRange.Apply
End Sub

Siehe auch

ShapeRange-ObjektApply-MethodeShape.PickUp-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.