通过

Master.Shapes 属性 (PowerPoint)

  • 项目

返回一个 Shapes 集合，该集合代表被放置或插入到指定的幻灯片、 幻灯片母版、 或幻灯片组的所有元素。 此为只读属性。

语法

表达式。形状

表达 一个代表 Master 对象的变量。

返回值

形状

备注

返回的 Shapes 集合可以包含绘图、 形状、 OLE 对象、 图片、 文本对象、 标题、 页眉、 页脚、 幻灯片编号和上一张幻灯片或备注页上的幻灯片映像的日期和时间对象。

示例

以下示例添加一个宽 100 磅、高 50 磅的矩形，它的左上角距当前演示文稿第一张幻灯片的左边 5 磅、上边 25 磅。

Set firstSlide = ActivePresentation.Slides(1)

firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

以下示例设置当前演示文稿第一张幻灯片的第三个形状的填充纹理。

Set newRect = ActivePresentation.Slides(1).Shapes(3)

newRect.Fill.PresetTextured msoTextureOak

假设当前演示文稿第一张幻灯片包含一个标题，以下示例的第二行和第三行设置该演示文稿第一张幻灯片的标题文本。

Set firstSl = ActivePresentation.Slides(1)

firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"

firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"

假设当前演示文稿第二张幻灯片中的第二个形状包含文本框架，以下示例向该幻灯片添加一系列的段落。 请注意， Chr(13) 用于在文本中插入段落标记。

Set tShape = ActivePresentation.Slides(2).Shapes(2)

tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _
    "Second Item" & Chr(13) & "Third Item"

对于大多数幻灯片版式，第一个形状为文本占位符。以下示例与上例完成相同功能。

Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2)

testShape.TextFrame.TextRange.Text = "First Item" & _
    Chr(13) & "Second Item" & Chr(13) & "Third Item"

另请参阅

主对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。