Shape.SetShapesDefaultProperties 方法 (Word)

  • 项目

将文档中默认形状的格式应用于指定的形状。

语法

表达式。SetShapesDefaultProperties

expression 是必需的。 一个代表 Shape 对象的变量。

备注

新形状将继承默认形状的许多属性。

示例

本示例向 myDocument 添加一个矩形，设置矩形填充的格式，将矩形的格式应用于默认形状，然后将另一个 (较小的) 矩形添加到文档中。 后一个矩形与前一个矩形有相同的填充格式。

Set mydocument = ActiveDocument 
With mydocument.Shapes 
 With .AddShape(msoShapeRectangle, 5, 5, 80, 60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned msoPatternHorizontalBrick 
 End With 
 ' Sets formatting for default shapes 
 .SetShapesDefaultProperties 
 End With 
 ' New shape has default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。