Accent Property

True if a vertical accent bar separates the callout text from the callout line. Read/write MsoTriState.

Example

This example adds an oval to the active document 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.

Dim shapeCallout As Shape

With ActiveDocument.Shapes
    .AddShape msoShapeOval, 180, 200, 280, 130
    Set shapeCallout = .AddCallout(msoCalloutTwo, 420, 170, 170, 40)
    
    With shapeCallout
        .TextFrame.TextRange.Text = "My oval"
        .Callout.Accent = msoTrue
        .Callout.Border = msoFalse
    End With
End With