将文档中默认形状的格式应用于指定的形状。
语法
表达式.SetShapesDefaultProperties
表达式 必选。一个代表 Shape 对象的变量。
说明
新形状将继承默认形状的许多属性。
示例
以下示例将一个矩形添至 myDocument，设置矩形的填充格式，将矩形的格式应用于默认形状，然后将另一个（较小的）矩形添至文档。后一个矩形与前一个矩形有相同的填充格式。
| 示例代码 |
let mydocument = ActiveDocument
let Shape = mydocument.Shapes
let newShape1 = Shape.AddShape(msoShapeRectangle, 5, 5, 80, 60)
let newShape2 = newShape1.Fill
newShape2.ForeColor.RGB = (0, 0, 255)
newShape2.BackColor.RGB = (0, 204, 255)
newShape2.Patterned(msoPatternHorizontalBrick)
//Sets formatting for default shapes
newShape1.SetShapesDefaultProperties()
//New shape has default formatting
Shape.AddShape(msoShapeRectangle, 90, 90, 40, 30)
|