Método ShapeRange.SetShapesDefaultProperties (Publisher)

Aplica el formato de la forma o el intervalo de formas especificado a la forma especificada. Las formas creadas después de usar este método tienen este formato aplicado de forma predeterminada.

Sintaxis

expresión. SetShapesDefaultProperties

expresión Variable que representa un objeto ShapeRange .

Valor devuelto

Nothing

Comentarios

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.