Свойство Shape.AutoShapeType (Word)

Статья
04/07/2023

Возвращает или задает тип фигуры для указанного объекта Shape , который должен представлять объект AutoShape, отличный от линии или рисунка свободной формы. Чтение и запись MsoAutoShapeType.

Синтаксис

expression. AutoShapeType

выражение (обязательно). Переменная, представляющая объект Shape .

Замечания

При изменении типа фигуры она сохраняет свой размер, цвет и другие атрибуты.

Пример

В этом примере все 16-точечная звезда заменяется 32-точечной звездой в активном документе.

Sub ReplaceAutoShape() 
 Dim docNew As Document 
 Dim shpStar As Shape 
 Set docNew = ActiveDocument 
 For Each shpStar In docNew.Shapes 
 If shpStar.AutoShapeType = msoShape16pointStar Then 
 shpStar.AutoShapeType = msoShape32pointStar 
 End If 
 Next 
End Sub

См. также

Объект Shape

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

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