ShapeRange 对象 (Excel)
代表形状区域,它是文档中的一组形状。
形状范围可以只包含文档中的一个形状,也可以包含该文档中的所有形状。 可以包含所需的任何形状(从文档上的所有形状或所选内容中的所有形状中选择)来构造形状区域。 例如,可以构造一个 ShapeRange 集合,其中包含文档上的前三个形状、 所有选取的形状或所有任意多边形。
使用 Range (索引) ,其中 index 是形状的名称或索引号或包含形状名称或索引号的数组,可返回一个 ShapeRange 集合,该集合代表文档中的一组形状。 使用 Array 函数构造名称或索引号数组。
下例设置 myDocument 上形状一和三的填充图案。
Set myDocument = Worksheets(1)
myDocument.Shapes.Range(Array(1, 3)).Fill.Patterned _
msoPatternHorizontalBrick
下例设置 myDocument 上名为“Oval 4”和“Rectangle 5”的形状的填充图案。
虽然可以使用 Range 属性来返回任意数量的形状或幻灯片,但如果您只想返回一个集合成员,则使用 Item 方法会更简单。 例如, Shapes(1)
是比 Shapes.Range(1)
更简单。
Set myDocument = Worksheets(1)
Set myRange = myDocument.Shapes.Range(Array("Oval 4", _
"Rectangle 5"))
myRange.Fill.Patterned msoPatternHorizontalBrick
使用 Selection 对象的 ShapeRange 属性可返回选定内容中的所有形状。 下面的示例设置前景填充色,假定一个,窗口中的选定内容中的所有形状的选定内容中的至少一个形状。
Windows(1).Selection.ShapeRange.Fill.ForeColor.RGB = _
RGB(255, 0, 255)
使用 所选内容。ShapeRange (索引) ,其中 index 是形状名称或索引号,以返回所选内容中的单个形状。 下面的示例填充将前景色的设置为第二个形状中选定形状的集合中第一个窗口,假定至少有两个形状在所选内容。
Windows(1).Selection.ShapeRange(2).Fill.ForeColor.RGB = _
RGB(255, 0, 255)
- Align
- 应用
- 删除
- 分发
- Duplicate
- Flip
- Group
- IncrementLeft
- IncrementRotation
- IncrementTop
- 项
- PickUp
- 重新组合
- RerouteConnections
- ScaleHeight
- ScaleWidth
- Select
- SetShapesDefaultProperties
- Ungroup
- ZOrder
- Adjustments
- AlternativeText
- 应用程序
- AutoShapeType
- BackgroundStyle
- BlackWhiteMode
- Callout
- Chart
- Child
- ConnectionSiteCount
- Connector
- ConnectorFormat
- Count
- Creator
- Decorative
- Fill
- Glow
- GraphicStyle
- GroupItems
- HasChart
- Height
- HorizontalFlip
- ID
- Left
- Line
- LockAspectRatio
- Model3D
- 名称
- Nodes
- Parent
- ParentGroup
- PictureFormat
- Reflection
- Rotation
- Shadow
- ShapeStyle
- SoftEdge
- TextEffect
- TextFrame
- TextFrame2
- ThreeD
- 标题
- Top
- 类型
- VerticalFlip
- Vertices
- Visible
- Width
- ZOrderPosition
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。