PowerPoint) (Shapes 对象
指定幻灯片上所有 Shape 对象的集合。
备注
每个 Shape 对象都代表绘图层中的一个对象，如自选图形、任意多边形、OLE 对象或图片。
注意
如果要处理文档中的一部分形状（例如，仅对文档中的自选图形或仅对所选形状执行某些操作），则必须构造一个包含要处理的形状的 ShapeRange 集合。 有关如何使用单个形状或同时使用多个形状的概述，请参阅 How to: Work with Shapes (Drawing Objects)（如何: 使用形状（绘制对象）。
示例
使用 Shapes 属性可返回 Shapes 集合。 下例在活动演示文稿中选择所有形状。
ActivePresentation.Slides(1).Shapes.SelectAll
注意
如果要执行 (操作，例如同时删除或设置) 文档上所有形状的属性，请使用不带参数的 Range方法创建包含 Shapes 集合中所有形状的 ShapeRange 对象，然后将相应的属性或方法应用于 ShapeRange 对象。
使用 AddCallout、 AddComment、 AddConnector、 AddCurve、 AddLabel、 AddLine、 AddMediaObject、 AddOLEObject、 AddPicture、 AddPlaceholder、 AddPolyline、 AddShape、 AddTable、 AddTextbox、 AddTextEffect 或 AddTitle方法来创建新形状并将其添加到 Shapes 集合。 结合使用 BuildFreeform 和 ConvertToShape 方法，以创建新的任意多边形并将其添加到集合中。 以下示例会向活动演示文稿添加一个矩形。
ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
使用 Shapes (索引) （其中 index 是形状的名称或索引号）返回单个 Shape 对象。 下例设置活动演示文稿中第一个形状的预设阴影填充。
ActivePresentation.Slides(1).Shapes(1).Fill _
.PresetGradient Style:=msoGradientHorizontal, Variant:=1, _
PresetGradientType:=msoGradientBrass
使用 Shapes.Range (索引) （其中 index 是形状的名称或索引号或形状名称或索引号数组）可返回代表 Shapes 集合子集的 ShapeRange 集合。 下例设置活动演示文稿中第一和第三个形状的填充模式。
ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _
.Patterned Pattern:=msoPatternHorizontalBrick
使用 Shapes.Placeholders (索引) （其中 index 是占位符编号）返回一个代表占位符的 Shape 对象。 如果指定幻灯片具有标题，则使用 Shapes.Placeholders(1) 或 Shapes.Title 返回标题占位符。 下例将幻灯片添加到活动演示文稿，然后将文本添加到标题和副标题（副标题是此版式幻灯片上的第二个占位符）。
With ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).Shapes
.Title.TextFrame.TextRange = "This is the title text"
.Placeholders(2).TextFrame.TextRange = "This is subtitle text"
End With
方法
属性
| 名称 |
|---|
| Application |
| Count |
| Creator |
| HasTitle |
| Parent |
| Placeholders |
| Title |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。
反馈
即将发布：在整个 2024 年，我们将逐步淘汰作为内容反馈机制的“GitHub 问题”，并将其取代为新的反馈系统。 有关详细信息，请参阅：https://aka.ms/ContentUserFeedback。
提交和查看相关反馈