Project.shape.apply.md

title	ms.service	ms.assetid	ms.date	ms.localizationpriority
Shape.Apply method (Project)	project-server	8d7a29f0-6a69-f643-6726-0c85247fb957	06/08/2017	medium

Shape.Apply method (Project)

Applies formatting to a shape, where the formatting information has been copied by using the PickUp method.

Syntax

expression.Apply

expression A variable that represents a Shape object.

Return value

Nothing

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

Shape Object PickUp Method ShapeRange.Apply Method

[!includeSupport and feedback]