Word VBA教程:Shapes属性

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

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

说明

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

VBA示例

本示例新建一篇文档,为其添加一个矩形,该矩形宽 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号