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 支持和反馈，获取有关如何接收支持和提供反馈的指南。