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