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

Copia a formatação do intervalo de formas.

Sintaxe

expressão. PickUp

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

Valor de retorno

Nothing

Comentários

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

Exemplo

O exemplo seguinte cria três formas cilíndricas, colore a primeira forma a vermelho, adiciona a segunda e terceira formas a um intervalo de formas, copia a formatação da primeira forma e, em seguida, aplica a formatação ao intervalo de formas.

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

Confira também

ShapeRange Object Apply Method Shape.PickUp Method (Método ShapeRange ObjectApply MethodShape.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.