ShapeRange.Callout Property

  • Article
Publisher Developer Reference

Returns a CalloutFormat object representing the formatting of a line callout.

Syntax

expression.Callout

expression   A variable that represents a ShapeRange object.

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.

Visual Basic for Applications 
  Sub NewShapeItem()

Dim shpNew As Shapes

Set shpNew = Application.ActiveDocument.MasterPages(1).Shapes
With shpNew
    .AddShape Type:=msoShapeOval, Left:=180, _
        Top:=200, Width:=280, Height:=130
    With .AddCallout(Type:=msoCalloutTwo, Left:=420, _
        Top:=170, Width:=170, Height:=40)
        .TextFrame.TextRange = "Big Oval"
        With .<strong class="bterm">Callout</strong>
            .Accent = msoTrue
            .Border = msoFalse
        End With
    End With
End With



End Sub

See Also