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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈