Método ShapeRange.Apply (proyecto)

Aplica formato a un rango de formas, donde se ha copiado la información de formato mediante el método PickUp .

Sintaxis

más sencilla.Aplicar

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

Valor devuelto

Nothing

Ejemplo

En el ejemplo siguiente se crean tres formas cilíndricas, se colorea la primera forma de rojo, se agrega la segunda y la tercera forma a un rango de formas, se copia el formato de la primera forma y, después, se aplica el formato al rango 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 de recogida de objetos ShapeRangeMétodo Shape.Apply

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.