Поделиться через

Объект ShapeRange (PowerPoint)

  • Статья

Представляет диапазон фигур, представляющий собой набор фигур в документе. Диапазон фигур может содержать как одну фигуру, так и все фигуры в документе.

Замечания

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

Общие сведения о том, как работать с одной фигурой или несколькими фигурами одновременно, см. в статье Работа с фигурами (объектами-рисунками).

В следующих примерах описано, как:

  • Возвращает набор фигур, указанных по имени или номеру индекса.

  • Возвращает все или некоторые выбранные фигуры в документе.

Пример

Используйте Shapes.Range (index), где индекс — это имя или номер индекса фигуры или массив, содержащий имена или номера индексов фигур, чтобы вернуть коллекцию ShapeRange , представляющую набор фигур в документе. Используйте функцию Array для создания массива имен или номеров индексов. В следующем примере задается шаблон заливки для фигур один и три в myDocument.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes.Range(Array(1, 3)).Fill _

    .Patterned msoPatternHorizontalBrick

В следующем примере задается шаблон заливки для фигур с именами Oval 4 и Rectangle 5 в myDocument.

Set myDocument = ActivePresentation.Slides(1)

Set myRange = myDocument.Shapes _

    .Range(Array("Oval 4", "Rectangle 5"))

myRange.Fill.Patterned msoPatternHorizontalBrick

Хотя вы можете использовать метод Range для возврата любого количества фигур или слайдов, проще использовать метод Item , если требуется вернуть только один член коллекции. Например, проще, Shapes(1) чем Shapes.Range(1).

Используйте свойство ShapeRange объекта Selection , чтобы вернуть все фигуры в выделенном фрагменте. В следующем примере задается цвет переднего плана заливки для всех фигур, выделенных в первом окне, при условии, что в выделенном фрагменте есть по крайней мере одна фигура.

Windows(1).Selection.ShapeRange.Fill.ForeColor _

    .RGB = RGB(255, 0, 255)

Используйте selection.ShapeRange (index), где индекс — это имя фигуры или номер индекса, чтобы вернуть одну фигуру в выделенном фрагменте. В следующем примере задается цвет переднего плана заливки для второй фигуры в коллекции выбранных фигур в первом окне, при условии, что в выделенном фрагменте есть по крайней мере две фигуры.

Windows(1).Selection.ShapeRange(2).Fill.ForeColor _

    .RGB = RGB(255, 0, 255)

Методы

Свойства

См. также

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

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