大众计算机学习网

专门提供各种电脑教程

Shape对象的综合例子

Admin | 2013-8-26 8:24:07 | 被阅次数 | 3444

  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 对象。创建组后,可以如使用任何其他形状一样使用该组。