Método Shape.PickUp (Project)

Copia el formato de una forma.

Sintaxis

expresión. Recogida

expresión Variable que representa un objeto Shape.

Valor devuelto

Nothing

Observaciones

Use el método Apply para aplicar el formato copiado a otra forma.

Ejemplo

En el ejemplo siguiente se crean dos formas cilíndricas, se colorea la primera forma en rojo, se copia el formato de la primera forma y, a continuación, se aplica a la 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

Vea también

Método ShapeRange.Pickupdel método Applydel objeto Shape

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.