将指定形状的格式应用于默认形状。使用该方法后所创建的形状将默认应用此格式。
语法
表达式.SetShapesDefaultProperties
表达式 一个代表 Shape 对象的变量。
示例
本示例向 myDocument 中添加矩形，格式化矩形的填充，将该矩形的格式应用于默认形状，再向该文档中添加一个较小的矩形。第二个矩形的填充与第一个矩形相同。
| 示例代码 |
let mydocument = ActivePresentation.Slides.Item(1)
let myshapes = mydocument.Shapes
let myadd = myshapes.AddShape(msoShapeRectangle, 5, 5, 80, 60)
let myfill = myadd.Fill
myfill.ForeColor.RGB = 0, 0, 255
myfill.BackColor.RGB = 0, 204, 255
myfill.Patterned (msoPatternHorizontalBrick)
// Sets formatting for default shapes
myadd.SetShapesDefaultProperties()
// New shape has default formatting
myshapes.AddShape(msoShapeRectangle, 90, 90, 40, 30)
|