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

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

Синтаксис

expression. AutoShapeType

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

Замечания

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

Используйте свойство Type объекта ConnectorFormat , чтобы задать или вернуть тип соединителя.

Пример

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

Set myDocument = Worksheets(1) 
For Each s In myDocument.Shapes 
    If s.AutoShapeType = msoShape16pointStar Then 
        s.AutoShapeType = msoShape32pointStar 
    End If 
Next

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

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