Свойство ScratchArea.Shapes (Издатель)

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

Синтаксис

expression. Формы

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

Замечания

Сведения о возврате одного члена коллекции см. в разделе Возвращение объекта из коллекции.

Пример

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

Sub AddNewRectangle() 
 ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeRectangle, _ 
 Left:=5, Top:=25, Width:=100, Height:=50 
End Sub

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

Sub SetNewTextureForAllShapes() 
 Dim shp As Shape 
 For Each shp In ActiveDocument.Pages(1).Shapes 
 shp.Fill.PresetTextured PresetTexture:=msoTextureOak 
 Next shp 
End Sub

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

Sub SetShadowForFirstShape() 
 ActiveDocument.Pages(1).Shapes(1).Shadow.Type = msoShadow6 
End Sub

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

Sub CountShapesOnFirstPage() 
 MsgBox "You have " & ActiveDocument.Pages(1) _ 
 .Shapes.Count & " shapes on the first page." 
End Sub

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

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