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

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

  • Статья

Возвращает или задает константу MsoAutoShapeType , указывающую тип AutoShape объекта Shape .

Синтаксис

expression. AutoShapeType

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

Замечания

Значение свойства AutoShapeType может быть одной из констант MsoAutoShapeType , объявленных в библиотеке типов Microsoft Office.

Автофигуры соответствуют объектам Shape , хотя свойство AutoShapeType для фигур, не являющихся издателями, также возвращает значение. Объекты WordArt, OLE, элемента управления Веб-формы, таблицы и кадра рисунков должны возвращать msoShapeMixed в качестве значения свойства AutoShapeType . Текстовые кадры должны возвращать msoShapeRectangle в качестве свойства AutoShapeType .

Пример

В этом примере выбранный объект AutoShape преобразуется в молнию, если это сердце, и в звезду из 5 точек, если это не так. Для правильного выполнения этого примера в активной публикации должен быть выбран объект AutoShape.

Sub ShapeShift() 
 
 Dim srShift As ShapeRange 
 
 Set srShift = Application.ActiveDocument.Selection.ShapeRange 
 If srShift.AutoShapeType = msoShapeHeart Then 
 srShift.AutoShapeType = msoShapeLightningBolt 
 Else 
 srShift.AutoShapeType = msoShape5pointStar 
 End If 
 
End Sub

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

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