Объект ShapeRange (Проект)

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

Замечания

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

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

Большинство операций, которые можно выполнить с объектом Shape , можно также выполнить с объектом ShapeRange , который содержит только одну фигуру. Некоторые операции, выполняемые с объектом ShapeRange , который содержит несколько фигур, фигур разных типов или фигуры, которые не полностью поддерживаются в Project, могут привести к ошибке. Например, если диапазон фигур содержит прямоугольник и диаграмму, и вы пытаетесь задать свойство Fill , инструкция завершается ошибкой, так как диаграмма не реализует свойство Fill . В других случаях, например, если вы используете свойство Поворот в диапазоне фигур, который содержит диаграмму и прямоугольник, 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))

Чтобы создать объект 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-порядке).

Свойства

Имя
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 и обратная связь.