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

Свойство Selection.ShapeRange (Publisher)

  • Статья

Возвращает коллекцию ShapeRange , представляющую все объекты Shape в указанном диапазоне или выделенном фрагменте. Диапазон фигур может содержать рисунки, фигуры, рисунки, объекты OLE, элементы ActiveX, текстовые объекты и выноски.

Синтаксис

expression. ShapeRange

Выражение Переменная, представляющая объект Selection .

Возвращаемое значение

ShapeRange

Пример

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

Sub ChangeFillForShapeRange() 
 Selection.ShapeRange.Fill.Patterned Pattern:=msoPattern20Percent 
End Sub

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

Sub SetShadowForSelectedShapes() 
 With Selection.ShapeRange 
 .Shadow.Type = msoShadow6 
 .Fill.Patterned Pattern:=msoPatternDottedDiamond 
 End With 
End Sub

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

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