Shape.Callout 屬性 (Publisher)

會傳回 CalloutFormat 物件，此物件代表直線圖說文字的格式設定。

語法

運算式。標注

表達 代表 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 支援與意見反應。