Border 属性

       

返回或设置指定标注中的文本是否具有边框。MsoTriState,可读写。

expression.Border

expression   必需。该表达式返回“应用于”列表中的一个对象。

Long 类型,可读写。

示例

本示例在活动文档中添加一个椭圆和一个指向椭圆的标注。标注文本不带有边框,但有一条强调线将文本和标注线隔开。

Dim docActive As Document

Set docActive = ActiveDocument

With docActive.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