将文档中默认形状的格式应用于指定的形状。
语法
表达式.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)
|