Объект ShapeRange (Excel)

  • Статья

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

Замечания

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

Пример

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

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

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

Set myDocument = Worksheets(1) 
myDocument.Shapes.Range(Array(1, 3)).Fill.Patterned _ 
 msoPatternHorizontalBrick

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

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

Set myDocument = Worksheets(1) 
Set myRange = myDocument.Shapes.Range(Array("Oval 4", _ 
 "Rectangle 5")) 
myRange.Fill.Patterned msoPatternHorizontalBrick

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

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

Windows(1).Selection.ShapeRange.Fill.ForeColor.RGB = _ 
 RGB(255, 0, 255)

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

Windows(1).Selection.ShapeRange(2).Fill.ForeColor.RGB = _ 
 RGB(255, 0, 255)

Методы

Свойства

См. также

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

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