Método Shape.SetShapesDefaultProperties (Publisher)

Aplica el formato de la forma o el intervalo de formas especificado a la forma especificada. A las formas creadas después de utilizar este método se les aplicará este formato de manera predeterminada.

Sintaxis

expresión. SetShapesDefaultProperties

expresión Variable que representa un objeto Shape.

Observaciones

El método SetShapesDefaultProperties almacena dos conjuntos diferentes de propiedades predeterminadas, uno para la propiedad AutoShapeType de un objeto Shape y otro para un objeto TextFrame.

En otras palabras, si se llama a este método en una autoforma, el formato predeterminado de ese objeto sólo se aplicará a las nuevas autoformas y no se aplicará a los nuevos cuadros de texto. Si se llama a este método en un cuadro de texto, el formato predeterminado del objeto sólo se aplicará a los nuevos cuadros de texto y no se aplicará a las nuevas autoformas.

Ejemplo

En este ejemplo se agrega un rectángulo a la publicación activa, se da formato al relleno del rectángulo, se aplica el formato del rectángulo a la forma predeterminada y, por último, se agrega otro rectángulo más pequeño al documento. El segundo rectángulo tiene el mismo relleno que el primero.

With ActiveDocument.Pages(1).Shapes 
 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=5, Top:=5, Width:=80, Height:=60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned Pattern:=msoPatternHorizontalBrick 
 End With 
 .SetShapesDefaultProperties 
 End With 
 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=90, Top:=90, Width:=40, Height:=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.