Compartir a través de

Método ShapeRange.SetShapesDefaultProperties (Excel)

  • Artículo

Convierte el formato de la forma especificada en el formato predeterminado de la forma.

Sintaxis

expresión. SetShapesDefaultProperties

Expresión Variable que representa un objeto ShapeRange .

Ejemplo:

En este ejemplo se agrega un rectángulo a myDocument, se aplica formato al relleno del rectángulo, se establece el formato del rectángulo como formato predeterminado para la forma y, a continuación, se agrega otro rectángulo más pequeño al documento. El segundo rectángulo tiene el mismo relleno que el primero.

Set myDocument = Worksheets(1) 
With myDocument.Shapes 
 With .AddShape(msoShapeRectangle, 5, 5, 80, 60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned msoPatternHorizontalBrick 
 End With 
 ' Set formatting as default formatting 
 .SetShapesDefaultProperties 
 End With 
 ' Create new shape with default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

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.