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

Свойство Shape.Callout (издатель)

  • Статья

Возвращает объект CalloutFormat , представляющий форматирование выноски строки.

Синтаксис

expression. Выноски

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

Пример

В этом примере к активной публикации добавляется овал и выноска, указывающая на овал. Текст выноски не будет иметь границы, но он будет иметь вертикальную акцентную полосу, которая отделяет текст от строки выноски.

Sub NewShapeItem() 
 
 Dim shpNew As Shapes 
 
 Set shpNew = Application.ActiveDocument.MasterPages(1).Shapes 
 With shpNew 
 .AddShape Type:=msoShapeOval, Left:=180, _ 
 Top:=200, Width:=280, Height:=130 
 With .AddCallout(Type:=msoCalloutTwo, Left:=420, _ 
 Top:=170, Width:=170, Height:=40) 
 .TextFrame.TextRange = "Big Oval" 
 With .Callout 
 .Accent = msoTrue 
 .Border = msoFalse 
 End With 
 End With 
 End With 
 
End Sub

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

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