Table of contents
TOC
Collapse the table of content
Expand the table of content

Shape.PickUp Method (Project)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Copies the formatting of a shape.

Syntax

expression. PickUp

expression A variable that represents a Shape object.

Return value

Nothing

Remarks

Use the Apply method to apply copied formatting to another shape.

Example

The following example creates two cylindrical shapes, colors the first shape red, copies the formatting of the first shape, and then applies it to the second shape.

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

See also

Other resources

Shape ObjectApply MethodShapeRange.Pickup Method

© 2018 Microsoft