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 requerida. Variable que representa un objeto Shape.
Comentarios
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
Consulte también
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de