Método ShapeRange.PickUp (Project)

Copia el formato del intervalo de formas.

Sintaxis

expresión. Recogida

expresión Variable que representa un objeto 'ShapeRange'.

Valor devuelto

Nothing

Observaciones

Use el método Apply para aplicar el formato copiado a otra forma o rango de formas.

Ejemplo

En el ejemplo siguiente se crean tres formas cilíndricas, se aplica el color rojo a la primera forma, se agregan la segunda y la tercera formas a un intervalo de formas, se copia el formato de la primera forma y, a continuación, se aplica el formato al 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

Vea también

Método ShapeRange Delmétodo ApplyShape.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.