Объект 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-порядке). |
Свойства
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.