Border Property

Microsoft Publisher Visual Basic

constant indicating whether the text in the specified callout is surrounded by a border. Read/write.

MsoTriState can be one of these MsoTriState constants.
msoCTrue Not used with this property.
msoFalse The text in the specified callout is not surrounded by a border.
msoTriStateMixed Return value only; indicates a combination of msoTrue and msoFalse in the specified shape range.
msoTriStateToggle Set value only; toggles between msoTrue and msoFalse.
msoTrue The text in the specified callout is surrounded by a border.

expression.Border

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds an oval to the active publication and a callout that points to the oval. The callout text will have a border, but not a vertical accent bar that separates the text from the callout line.

With ActiveDocument.Pages(1).Shapes
    ' Add an oval.
    .AddShape Type:=msoShapeOval, _
        Left:=180, Top:=200, Width:=280, Height:=130

    ' Add a callout.
    With .AddCallout(Type:=msoCalloutTwo, _
            Left:=420, Top:=170, Width:=170, Height:=40)

        ' Add text to the callout.
        .TextFrame.TextRange.Text = "This is an oval"

        ' Add an accent bar to the callout.
        With .Callout
            .Accent = msoFalse
            .Border = msoTrue
        End With
    End With
End With