Question

全部显示

多个对象 Shape 多个对象

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

注意共有三个代表形状的对象：Shapes 集合，代表文档中的所有形状；ShapeRange 集合，代表文档中指定的部分形状（例如，ShapeRange 对象可以代表文档中的第一个和第四个形状，或代表文档中所有选定的形状）；Shape 对象，代表文档中的单个形状。如果要同时使用多个形状或集合中的形状，请使用ShapeRange 集合。关于一次使用单个形状或多个形状的概述，请参阅使用形状（绘图对象）。

使用 Shape 对象

本节描述如何：

• 按名称或编号索引，返回幻灯片中现有的形状。
• 返回幻灯片中新建的形状。
• 返回选定对象中的形状。
• 返回幻灯片中的幻灯片标题和其他占位符。
• 返回与连接符的端点相连的形状。
• 返回演示文稿的默认形状。
• 返回新建的任意多边形。
• 返回组中的单个形状。
• 返回新组成的形状组。

返回幻灯片中现有的形状

使用Shapes(index) 返回一个代表幻灯片中形状的Shape 对象，其中index 是形状名称或索引号。以下示例水平翻转 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 集合的下列方法之一：AddCallout、AddComment、AddConnector、AddCurve、AddLabel、AddLine、AddMediaObject、AddOLEObject、AddPicture、AddPlaceholder、AddPolyline、AddShape、AddTable、AddTextbox、AddTextEffect 和AddTitle。

返回选定对象中的形状

使用Selection.ShapeRange(index) 返回一个代表选定对象中的形状的Shape 对象，其中index 是形状名称或索引号。以下示例设置当前窗口中选定对象的第一个形状的填充（假定选中的对象中至少有一个形状）。

ActiveWindow.Selection.ShapeRange(1).Fill _
 .ForeColor.RGB = RGB(255, 0, 0)

返回幻灯片中的幻灯片标题和其他占位符

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

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 对象，其中index 是组中形状的名称或索引号。

返回新组成的形状组

使用Group 或Regroup 方法对若干形状进行组合，并返回代表新建组的单个Shape 对象。创建组后，可以如使用任何其他形状一样使用该组。