返回一个 CalloutFormat 对象,该对象包含指定形状的标注格式属性。应用于代表行标注的 Shape 或 ShapeRange 对象。只读。
本示例在 myDocument
中添加一个椭圆和指向该椭圆的标注。标注文本没有边界,但包含垂直强调线将文本与标注线分开。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
.AddShape msoShapeOval, 180, 200, 280, 130
With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)
.TextFrame.TextRange.Text = "My oval"
With .Callout
.Accent = True
.Border = False
End With
End With
End With