Método Shape.PickUp (Project)

Copia el formato de una forma.

Sintaxis

más sencilla.Recogida

expresión Variable que representa un objeto Shape.

Valor devuelto

Nothing

Comentarios

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

Ejemplo

En el ejemplo siguiente se crean dos formas cilíndricas, se colorea la primera forma de rojo, se copia el formato de la primera forma y, después, se aplica a la segunda.

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 de aplicaciónde objeto de formaMétodo ShapeRange.Pickup

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.