ShapeRange.SetShapesDefaultProperties 方法 (Publisher)

将指定形状或形状范围的格式应用于默认形状。 默认情况下，使用此方法后创建的形状将应用此格式。

语法

表达式。SetShapesDefaultProperties

表达 一个代表 ShapeRange 对象的变量。

返回值

Nothing

注解

SetShapesDefaultProperties 方法存储两组不同的默认属性，一组用于 Shape 对象的 AutoShapeType 属性，另一组用于 TextFrame 对象。

换句话说，如果在自选图形上调用此方法，则该对象的默认格式将仅应用于新的自选图形，并且不会应用于新文本框。 如果在文本框上调用该方法，则该对象的默认格式将仅应用于新的文本框，而不会应用于新的自选图形。

示例

以下示例将一个矩形添加到当前出版物，设置矩形的填充格式，将矩形的格式应用于默认的形状，再将另一个较小的矩形添加到文档。 第二个矩形的填充与第一个矩形相同。

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 

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。