Método Shape.SetShapesDefaultProperties (Word)

Aplica a la forma especificada el formato de la forma predeterminada de un documento.

Sintaxis

expresión. SetShapesDefaultProperties

expresión necesaria. Variable que representa un objeto Shape.

Observaciones

Las nuevas formas heredan muchos de sus atributos de la forma predeterminada.

Ejemplo

En este ejemplo se agrega un rectángulo a myDocument , se da formato al relleno del rectángulo, se aplica el formato del rectángulo a la forma predeterminada 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 = ActiveDocument 
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 
 ' Sets formatting for default shapes 
 .SetShapesDefaultProperties 
 End With 
 ' New shape has default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

Vea también

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.