形状对象 (PowerPoint)
代表绘图层中的对象,例如自选图形、任意多边形、OLE 对象或图片。
备注
有三个对象表示形状: Shapes 集合,表示文档上的所有形状; ShapeRange 集合表示文档上形状的指定子集 (例如, ShapeRange 对象可以表示文档上的第一个形状和第四个形状,也可以代表文档) 上的所有选定形状;和 Shape 对象,表示文档中的单个形状。 如果您需要同时处理几个形状,或处理选定区域中的多个形状,请使用 ShapeRange 集合。
有关如何使用单个形状或一次处理多个形状的概述,请参阅 使用形状 (绘图对象) 。
以下示例说明如何执行下列操作:
按名称或编号索引,返回幻灯片上现有的形状。
返回幻灯片上新建的形状。
返回选定范围中的形状。
返回幻灯片上的幻灯片标题和其他占位符。
返回与连接符的端点相连的形状。
返回演示文稿的默认形状。
返回新建的任意多边形。
返回组合内的单个形状。
返回新组合的一组形状。
使用 Shapes (索引) ,其中 index 是形状名称或索引号,以返回代表幻灯片上形状的 Shape 对象。 下例将 myDocument 中的形状一和名为“Rectangle 1”的形状进行水平翻转。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Flip msoFlipHorizontal
myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal
每个添加到 Shapes 集合的形状将被分配一个默认名称。 若要赋予该形状一个更有意义的名称,请使用 Name 属性。 以下示例向 myDocument 添加一个矩形,为其命名为“红方”,然后设置其前景色和线条样式。
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 是占位符的索引号,可返回代表占位符的 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 对象表示新组成的组。 一组形成之后,处理组相同的方式使用任何其他形状。
- Apply
- ApplyAnimation
- ConvertTextToSmartArt
- Copy
- Cut
- 删除
- Duplicate
- Export
- Flip
- IncrementLeft
- IncrementRotation
- IncrementTop
- PickUp
- PickupAnimation
- RerouteConnections
- ScaleHeight
- ScaleWidth
- Select
- SetShapesDefaultProperties
- Ungroup
- UpgradeMedia
- ZOrder
- ActionSettings
- Adjustments
- AlternativeText
- AnimationSettings
- 应用程序
- AutoShapeType
- BackgroundStyle
- BlackWhiteMode
- Callout
- Chart
- Child
- ConnectionSiteCount
- Connector
- ConnectorFormat
- Creator
- CustomerData
- Decorative
- Fill
- Glow
- GraphicStyle
- GroupItems
- HasChart
- HasInkXML
- HasSmartArt
- HasTable
- HasTextFrame
- Height
- HorizontalFlip
- Id
- InkXML
- IsNarration
- Left
- Line
- LinkFormat
- LockAspectRatio
- MediaFormat
- MediaType
- Model3D
- 名称
- Nodes
- OLEFormat
- Parent
- ParentGroup
- PictureFormat
- PlaceholderFormat
- Reflection
- Rotation
- Shadow
- ShapeStyle
- SmartArt
- SoftEdge
- Table
- Tags
- TextEffect
- TextFrame
- TextFrame2
- ThreeD
- 标题
- Top
- 类型
- VerticalFlip
- Vertices
- Visible
- Width
- ZOrderPosition
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。