Свойство 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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по