返回一个
Shapes
集合，该集合代表被放置或插入到指定幻灯片、幻灯片母版或幻灯片组的所有元素。该集合可以包含绘图、形状、OLE
对象、图片、文本对象、标题、页眉、页脚、幻灯片编号以及日期和时间对象，这些对象位于幻灯片上或备注页中的幻灯片映像上。只读。
语法
表达式.Shapes
表达式 一个代表 Master 对象的变量。
返回值
Shapes
示例
以下示例添加一个宽 100 磅、高 50 磅的矩形，它的左上角距当前演示文稿第一张幻灯片的左边 5 磅、上边 25 磅。
| 示例代码 |
let firstSlide = ActivePresentation.Slides.Item(1)
firstSlide.Shapes.AddShape(msoShapeRectangle, 5, 25, 100, 50)
|
以下示例设置当前演示文稿第一张幻灯片的第三个形状的填充纹理。
| 示例代码 |
let newRect = ActivePresentation.Slides.Item(1).Shapes.Item(3)
newRect.Fill.PresetTextured(msoTextureOak)
|
假设当前演示文稿第一张幻灯片包含一个标题，以下示例的第二行和第三行设置该演示文稿第一张幻灯片的标题文本。
| 示例代码 |
let firstSl = ActivePresentation.Slides.Item(1)
firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"
firstSl.Shapes.Item(1).TextFrame.TextRange.Text = "Other title text"
|
假设当前演示文稿第二张幻灯片中的第二个形状包含文本框架，以下示例向该幻灯片添加一系列的段落。请注意：Chr(13) 用于在该文本中插入段落标记。
| 示例代码 |
let tShape = ActivePresentation.Slides.Item(2).Shapes.Item(2)
tShape.TextFrame.TextRange.Text = "First Item" + "\r" + "Second Item" + "\r" + "Third Item"
|
对于大多数幻灯片版式，第一个形状为文本占位符。以下示例与上例完成相同功能。
| 示例代码 |
let testShape = ActivePresentation.Slides.Item(2).Shapes.Placeholders.Item(2)
testShape.TextFrame.TextRange.Text = "First Item" + "\r" + "Second Item" + "\r" + "Third Item"
|