Объект ShapeRange (Project)

Представляет диапазон фигур, который представляет собой коллекцию одной или более фигур в отчете.

Примечания

Project использует ту же инфраструктуру Office, что и другие Office приложения, и адаптируется Office Art к отчетам, таблицам и диаграммам, которые могут использовать поля в активном проекте. Однако Project не выполняет все операции ShapeRange. Например, Project не поддерживает автоматическое выравнивание, распределение, группировку или слияние фигур в диапазоне фигур.

Диапазон фигур может содержать одну фигуру или все фигуры в отчете. Вы можете включить все фигуры, которые необходимо создать диапазон фигур. Например, можно создать коллекцию ShapeRange , которая содержит первые три фигуры в отчете, все фигуры в отчете или только фигуры треугольника.

Большинство операций, которые можно сделать с объектом Shape , можно также сделать с объектом ShapeRange , который содержит только одну фигуру. Некоторые операции, выполняемые на объекте ShapeRange, который содержит несколько фигур, фигур разных типов или форму, не полностью поддерживаемую в Project, могут привести к ошибке. Например, если диапазон фигур содержит прямоугольник и диаграмму, и вы пытаетесь задать свойство Fill , утверждение не выполняется, так как диаграмма не реализует свойство Fill . В других случаях, например, если вы используете свойство Rotation в диапазоне фигур, содержаще диаграмму и прямоугольник, Project поворот прямоугольника, но безмолвно игнорирует диаграмму.

Примеры

Вы можете вернуть набор фигур, заданный номером индекса или именем фигуры. Используйте Shapes.Range(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))

Чтобы создать объект ShapeRange с одним членом коллекции Shapes , можно использовать такие утверждения, как следующие:

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)

Методы

Description
Метод Align не реализован в Project.
Применяет форматирование к диапазону фигур, где сведения о формате копируется с помощью метода PickUp .
Копирует диапазон фигур в Буфер обмена.
Сокращает диапазон фигур до буфера обмена.
Удаляет диапазон фигур.
Метод Distribute не реализован в Project.
Дублирует диапазон фигур и возвращает ссылку на копию.
Переворачивает каждую фигуру в диапазоне фигур вокруг горизонтальной или вертикальной оси.
Метод Group не реализован в Project.
Перемещает каждую фигуру в диапазоне фигур горизонтально по указанному количеству точек.
Вращает каждую фигуру в диапазоне фигур вокруг оси z на указанное количество градусов.
Перемещает каждую фигуру в диапазоне фигур вертикально по указанному количеству точек.
Получает отдельный объект Shape в коллекции диапазона фигур.
Метод MergeShapes не реализован в Project.
Копирует форматирование диапазона фигур.
Метод Regroup не реализуется в Project.
Метод RerouteConnections не реализован в Project.
Масштабы высоты диапазона фигур заданным фактором.
Масштабы ширины диапазона фигур заданным фактором.
Выбирает каждую фигуру в диапазоне фигур.
Применяет форматирование формы по умолчанию к каждой фигуре в диапазоне.
Метод Ungroup не реализован в Project.
Перемещает диапазон фигур перед другими фигурами или за ними (то есть меняет положение в z-order).

Свойства

Имя
Adjustments
AlternativeText
Application
AutoShapeType
BackgroundStyle
BlackWhiteMode
Callout
Chart
Child
ConnectionSiteCount
Connector
ConnectorFormat
Count
Fill
Glow
GroupItems
HasChart
HasTable
Height
HorizontalFlip
ID
Left
Line
LockAspectRatio
Name
Nodes
Parent
ParentGroup
Reflection
Rotation
Script
Shadow
ShapeStyle
SoftEdge
Table
TextEffect
TextFrame
TextFrame2
ThreeD
Title
Top
Type
Value
VerticalFlip
Vertices
Visible
Width
ZOrderPosition

См. также

Объект Shapes

Объект Shape

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.