Объект Shapes (издатель)
Коллекция объектов Shape , представляющих все фигуры на странице публикации. Каждый объект Shape представляет объект на слое рисования, например автофигуру, свободную форму, объект OLE или рисунок.
Примечание
Если вы хотите работать с подмножеством фигур в документе( например, для выполнения действий только с автофигурами в документе или только с выбранными фигурами), необходимо создать коллекцию ShapeRange , содержащую фигуры, с которыми вы хотите работать.
Используйте свойство Page.Shapes , чтобы вернуть коллекцию Shapes . Используйте shapes (index), где index — это номер индекса, чтобы вернуть один объект Shape .
Примечание
Если вы хотите выполнить что-то (например, удалить или задать свойство) для всех фигур в публикации одновременно, используйте метод Range , чтобы создать объект ShapeRange , содержащий все фигуры в коллекции Shapes , а затем применить соответствующее свойство или метод к объекту ShapeRange .
Используйте один из следующих методов коллекции Shapes , чтобы добавить фигуру в публикацию и вернуть объект Shape , представляющий только что созданную фигуру:
- AddCallout
- AddConnector
- AddCurve
- AddLabel
- AddLine
- AddOLEObject
- AddPolyline
- AddShape
- AddTextbox
- AddTextEffect
В следующем примере выбираются все фигуры на первой странице активной публикации.
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
- AddBuildingBlock
- AddCallout
- AddCatalogMergeArea
- AddCatalogMergeFieldToCanvas
- AddConnector
- AddCurve
- AddEmptyPictureFrame
- AddGroupWizard
- AddLabel
- AddLine
- AddOLEObject
- AddPicture
- AddPolyline
- AddShape
- AddTable
- AddTextbox
- AddTextEffect
- AddWebControl
- AddWebNavigationBar
- AddWordArt
- BuildFreeform
- FindShapeByWizardTag
- Item
- Paste
- Range
- SelectAll
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.