Share via

Callout Property

  • Article

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

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

expression.Callout

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.

  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 .Callout
                .Accent = msoTrue
                .Border = msoFalse
            End With
        End With
    End With

End Sub