通过

ShapeRange 对象 (Project)

  • 项目

表示形状区域，它是报表中一个或多个形状的集合。

备注

Project 使用其他 Office 应用程序使用的相同 Office 艺术基础结构，并根据报表、表和图表调整 Office 艺术，这些报表、表和图表可以使用活动项目中的字段。 但是，Project 并不实现所有 ShapeRange 操作。 例如，Project 不支持形状区域中形状的自动对齐、分布、分组或合并。

形状区域可以包含报表中的单个形状或所有形状。 可以包含要构造形状范围的形状。 例如，可以构造 一个 ShapeRange 集合，该集合包含报表中的前三个形状、报表中的所有形状或仅包含三角形形状。

[!注释] 与 形状 对象可以执行的大多数操作，您还可以执行与一个 ShapeRange 对象，该对象包含一个形状。 对包含多个形状、不同类型的形状或 Project 中未完全支持的形状的 ShapeRange 对象执行某些操作可能会导致错误。 例如，如果形状区域包含矩形和图表，并且您尝试设置 Fill 属性，则语句将失败，因为图表未实现 Fill 属性。 在其他情况下，例如，如果在包含图表和矩形的形状区域上使用 Rotation 属性，Project 将旋转矩形，但无提示地忽略图表。

示例

可以返回一组由索引号或形状名称指定的形状。 使用 Shapes.Range(index)，其中 index 是索引号或名称的数组。 例如，以下两个语句都有效：

Set myRange1 = theReport.Shapes.Range(Array(1, 2))
Set myRange2 = theReport.Shapes.Range(Array("Textbox 1", "Textbox 2"))

若要创建包含报表中所有形状的 ShapeRange 对象，请使用如下语句：

Set allShapes = theReport.Shapes.Range(Array(1, theReport.Shapes.Count))

若要使用 Shapes 集合的单个成员创建 ShapeRange 对象，可以使用如下所示的语句：

Set myRange3 = theReport.Shapes.Range(2)
Set myRange4 = theReport.Shapes.Range("Rectangle 2")

若要对 ShapeRange 集合中的单个形状执行操作，可以使用如下所示的语句：

myRange1(2).Fill.ForeColor.RGB = RGB(120, 120, 80)
myRange1("Textbox 2").Fill.ForeColor.RGB = RGB(120, 120, 80)

或者，可以直接对 Shape 对象执行操作，而无需使用形状范围。

theReport.Shapes("Big rectangle").Fill.ForeColor.RGB = RGB(120, 120, 80)

方法

说明
未在 Project 中实现 Align 方法。
将格式应用于形状区域，其中的格式信息已通过使用 PickUp 方法复制。
将形状范围复制到剪贴板。
将形状范围剪切到剪贴板。
删除形状范围。
在 Project 中未实现 Distribut 方法。
复制形状区域并返回对副本的引用。
围绕其水平或垂直轴翻转形状范围中的每个形状。
Group 方法未在 Project 中实现。
按指定磅数水平移动形状范围中的每个形状。
围绕 z 轴旋转形状范围中的每个形状，以指定的度数旋转。
按指定磅数垂直移动形状范围中的每个形状。
获取形状范围集合中的单个 Shape 对象。
MergeShapes 方法未在 Project 中实现。
复制形状区域的格式。
Regroup 方法未在 Project 中实现。
RerouteConnections 方法未在 Project 中实现。
按指定因子缩放形状区域的高度。
按指定因子缩放形状范围的宽度。
选择形状范围中的每个形状。
将默认形状的格式应用于范围中的每个形状。
未在 Project 中实现 Ungroup 方法。
将形状范围移到其他形状的前面或后面， (即更改 z 顺序) 中的位置。

属性

名称
Adjustments
AlternativeText
应用程序
AutoShapeType
BackgroundStyle
BlackWhiteMode
Callout
Chart
Child
ConnectionSiteCount
Connector
ConnectorFormat
Count
Fill
Glow
GroupItems
HasChart
HasTable
Height
HorizontalFlip
ID
Left
Line
LockAspectRatio
名称
Nodes
Parent
ParentGroup
Reflection
Rotation
Script
Shadow
ShapeStyle
SoftEdge
Table
TextEffect
TextFrame
TextFrame2
ThreeD
标题
Top
类型
Value
VerticalFlip
Vertices
Visible
Width
ZOrderPosition

另请参阅

Shapes 对象

形状对象

支持和反馈

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