Прочитать на английском

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


Объект Shapes (издатель)

Коллекция объектов Shape , представляющих все фигуры на странице публикации. Каждый объект Shape представляет объект на слое рисования, например автофигуру, свободную форму, объект OLE или рисунок.

Примечание

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

Замечания

Используйте свойство Page.Shapes , чтобы вернуть коллекцию Shapes . Используйте shapes (index), где index — это номер индекса, чтобы вернуть один объект Shape .

Примечание

Если вы хотите выполнить что-то (например, удалить или задать свойство) для всех фигур в публикации одновременно, используйте метод Range , чтобы создать объект ShapeRange , содержащий все фигуры в коллекции Shapes , а затем применить соответствующее свойство или метод к объекту ShapeRange .

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

Пример

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

Sub SelectAllShapes() 
    ActiveDocument.Pages(1).Shapes.SelectAll 
End Sub

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

Sub AddNewShape() 
    ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeFoldedCorner, _ 
        Left:=50, Top:=50, Width:=100, Height:=200 
End Sub

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

Sub FlipShape() 
    ActiveDocument.Pages(1).Shapes(1).Flip FlipCmd:=msoFlipHorizontal 
End Sub

Методы

Свойства

См. также

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

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