Shape.PickUp method (Project) (Método Shape.PickUp [Projeto])

Copia a formatação de uma forma.

Sintaxe

expressão. PickUp

expressão Uma variável que representa um objeto Shape.

Valor de retorno

Nothing

Comentários

Utilize o método Aplicar para aplicar formatação copiada a outra forma.

Exemplo

O exemplo seguinte cria duas formas cilíndricas, colore a primeira forma a vermelho, copia a formatação da primeira forma e, em seguida, aplica-a à segunda forma.

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

Confira também

Método Shape ObjectApply MethodShapeRange.Pickup

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.