Publisher) (Shapes 对象
代表出版物的一个页面上的所有形状的 Shape 对象的集合。 每个 Shape 对象代表对象在绘图层中,如自选图形、 任意多边形、 OLE 对象或图片。
备注
如果要处理文档上形状的子集(例如,仅对文档上的自选图形或仅对所选形状执行某些操作),则必须构造一个 ShapeRange 集合,其中包含要处理的形状。
使用 Page.Shapes 属性可返回 Shapes 集合。 使用 Shapes (索引) (其中 index 是索引号)返回单个 Shape 对象。
备注
如果要执行 (操作(例如同时删除或设置出版物中所有形状) 的属性),请使用 Range 方法创建一个 ShapeRange 对象,该对象包含 Shapes 集合中的所有形状,然后将相应的属性或方法应用于 ShapeRange 对象。
使用 Shapes 集合的下列方法之一将形状添加到出版物并返回一个代表新创建的形状的 Shape 对象:
- AddCallout
- AddConnector
- AddCurve
- AddLabel
- AddLine
- AddOLEObject
- AddPolyline
- AddShape
- AddTextbox
- AddTextEffect
下面的示例选择当前出版物的第一页上的所有形状。
Sub SelectAllShapes()
ActiveDocument.Pages(1).Shapes.SelectAll
End Sub
下面的示例将新形状添加到当前出版物。
Sub AddNewShape()
ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeFoldedCorner, _
Left:=50, Top:=50, Width:=100, Height:=200
End Sub
下面的示例水平翻转当前出版物第一页上的第一个形状。
Sub FlipShape()
ActiveDocument.Pages(1).Shapes(1).Flip FlipCmd:=msoFlipHorizontal
End Sub
- AddBuildingBlock
- AddCallout
- AddCatalogMergeArea
- AddCatalogMergeFieldToCanvas
- AddConnector
- AddCurve
- AddEmptyPictureFrame
- AddGroupWizard
- AddLabel
- AddLine
- AddOLEObject
- AddPicture
- AddPolyline
- AddShape
- AddTable
- AddTextbox
- AddTextEffect
- AddWebControl
- AddWebNavigationBar
- AddWordArt
- BuildFreeform
- FindShapeByWizardTag
- 项
- Paste
- Range
- SelectAll
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。