Accent Property [Publisher 2003 VBA Language Reference]

MsoTriState

MsoTriState can be one of these MsoTriState constants.

msoCTrue Not used with this property.

msoFalse A vertical accent bar does not separate the callout text from the callout line.

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 A vertical accent bar separates the callout text from the callout line.

expression.Accent

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 won't have a border, but it will have 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 = msoTrue
            .Border = msoFalse
        End With
    End With
End With

Applies to | CalloutFormat Object