Callout 属性

       

返回一个 CalloutFormat 对象,该对象包含指定形状的标注格式属性。应用于代表行标注的 ShapeShapeRange 对象。只读。

示例

本示例在 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