PowerPoint (Shape)

  • 项目

代表绘图层中的对象，例如自选图形、任意多边形、OLE 对象或图片。

注释

备注

有三个对象代表形状： Shapes 集合，该集合代表文档中的所有形状; ShapeRange 集合，该集合代表文档中指定的形状子集 (例如， ShapeRange 对象可以代表文档中第一个和四个形状，也可以代表文档中所有选定的) ;和 Shape 对象，该对象代表文档中的单个形状。 如果您需要同时处理几个形状，或处理选定区域中的多个形状，请使用 ShapeRange 集合。

有关一次如何处理单个形状或多个形状的概述，请参阅使用图形 (对象 ) 。

以下示例说明如何执行下列操作：

  • 按名称或编号索引，返回幻灯片上现有的形状。

  • 返回幻灯片上新建的形状。

  • 返回选定范围中的形状。

  • 返回幻灯片上的幻灯片标题和其他占位符。

  • 返回与连接符的端点相连的形状。

  • 返回演示文稿的默认形状。

  • 返回新建的任意多边形。

  • 返回组合内的单个形状。

  • 返回新组合的一组形状。

示例

使用 Shapes (index) （其中 index 是形状名称或索引号）可返回一个 Shape 对象，该对象代表幻灯片上的形状。 下例将 myDocument 中的形状一和名为“Rectangle 1”的形状进行水平翻转。

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).Flip msoFlipHorizontal

myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal

每个添加到 Shapes 集合的形状将被分配一个默认名称。 若要赋予该形状一个更有意义的名称，请使用 Name 属性。 以下示例向 myDocument 添加一个矩形，并赋予其名称 Red Square，然后设置其前景色和线条样式。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, _

        Top:=144, Left:=144, Width:=72, Height:=72)

    .Name = "Red Square"

    .Fill.ForeColor.RGB = RGB(255, 0, 0)

    .Line.DashStyle = msoLineDashDot

End With

若要向幻灯片中添加形状并返回表示新建形状的 Shape 对象，请使用 Shapes 集合的下列方法之一： Add3DModel、 AddCallout、 AddConnector、 AddCurve、 AddLabel、 AddLine、 AddMediaObject、 AddOLEObject、 AddPicture、 AddPlaceholder、 AddPolyline、 AddShape、 AddTable、 AddTextbox、 AddTextEffect、 AddTitle。

使用 Selection.ShapeRange (索引) （其中 index 是形状名称或索引号）可返回一个 Shape 对象，该对象代表选定内容中的形状。 下例设置了活动窗口内选定区域中的第一个形状的填充格式，假定至少选定了一个形状。

ActiveWindow.Selection.ShapeRange(1).Fill _

    .ForeColor.RGB = RGB(255, 0, 0)

使用 Shapes.Title 返回代表幻灯片标题的 Shape 对象。 使用 Shapes.AddTitle 在无标题的幻灯片中添加标题并返回代表新建标题的 Shape 对象。 使用 Shapes.Placeholders (index) （其中 index 是占位符的索引号）可返回一个代表占位符的 Shape 对象。 如果没有改变过幻灯片上形状的排列顺序，则以下三个语句是等效的（假定第一张幻灯片有标题）。

ActivePresentation.Slides(1).Shapes.Title _

    .TextFrame.TextRange.Font.Italic = True

ActivePresentation.Slides(1).Shapes.Placeholders(1) _

    .TextFrame.TextRange.Font.Italic = True

ActivePresentation.Slides(1).Shapes(1).TextFrame _

    .TextRange.Font.Italic = True

要返回一 个 Shape 对象，该对象代表连接符所连接的形状之一，请使用 BeginConnectedShape 或 EndConnectedShape 属性。

若要返回一 个 Shape 对象，该对象代表演示文稿的默认形状，请使用 DefaultShape 属性。

使用 BuildFreeform 和 AddNodes 方法定义新任意多边形的几何图形，并使用 ConvertToShape 方法创建任意多边形并返回代表它的 Shape 对象。

使用 GroupItems (索引) （其中 index 是形状名称或组合中的索引号）可返回 一个 Shape 对象，该对象代表组合形状中的单个形状。

使用 组 或 重组 方法组合形状范围并返回单个 Shape 对象表示新组成的组。 一组形成之后，处理组相同的方式使用任何其他形状。

方法

属性

另请参阅

支持和反馈

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