Shapes 属性

该属性返回 Shapes 集合，该集合代表指定文档、页眉或页脚中的所有 Shape 对象。该集合可以包含图形、形状、图片、OLE 对象、ActiveX 控件、文本对象和标注。只读。

有关返回集合中单个成员的内容，请参阅返回集合中的对象。

说明

Shapes 属性应用于文档时将返回文档正文中的所有 Shape 对象，不包括页眉和页脚。当 Shapes 属性应用于 HeaderFooter 对象时，Shapes 属性返回文档中所有页眉和页脚中的 Shape 对象。

示例

本示例新建一篇文档，为其添加一个矩形，该矩形宽 100 磅，高 50 磅，并设置矩形的左上角距页面左边缘 5 磅，距页面左上角 25 磅。

Set myDoc = Documents.Add
myDoc.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

本示例为活动文档中所有图形设置填充所需的图案。

For each s in ActiveDocument.Shapes
    s.Fill.PresetTextured msoTextureOak
Next s

本示例为活动文档中第一个图形添加阴影。

Set myShape = ActiveDocument.Shapes(1)
myShape.Shadow.Type = msoShadow6

本示例显示活动文档第一节的主页眉和页脚中所有图形的总数。

MsgBox ActiveDocument.Sections(1). _
    Headers(wdHeaderFooterPrimary).Shapes.Count