WPS 基础接口 > 演示 API 参考 > Shape > 方法 > Shape.SetShapesDefaultProperties 方法
将指定形状的格式应用于默认形状。使用该方法后所创建的形状将默认应用此格式。

语法

表达式.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)


请参阅