将指定形状的格式设置为形状的默认格式。
语法
表达式.SetShapesDefaultProperties
表达式 一个代表 Shape 对象的变量。
示例
此示例向 myDocument 中添加矩形，设置该矩形的填充样式，将矩形的格式设置为该矩形的默认格式，然后在文档中添加另一个较小的矩形。第二个矩形的填充格式与第一个矩形一样。
| 示例代码 |
let myDocument = Worksheets.Item(1)
let myShape = myDocument.Shapes
let Shape = myShape.AddShape(msoShapeRectangle, 5, 5, 80, 60)
let myFill = Shape.Fill
myFill.ForeColor.RGB = 0, 0, 255
myFill.BackColor.RGB = 0, 204, 255
myFill.Patterned(msoPatternHorizontalBrick)
// Set formatting as default formatting
Shape.SetShapesDefaultProperties()
// Create new shape with default formatting
myShape.AddShape(msoShapeRectangle, 90, 90, 40, 30)
|