Multiple objects![]() |
Contains properties and methods that apply to line callouts.
Use the Callout property to return a CalloutFormat object. The following example adds a callout to the active publication, adds text to the callout, then specifies the following attributes for the callout:
Sub AddFormatCallout()
With ActiveDocument.Pages(1).Shapes.AddCallout(Type:=msoCalloutOne, _
Left:=150, Top:=150, Width:=200, Height:=100)
With .TextFrame.TextRange
.Text = "This is a callout."
With .Font
.Name = "Stencil"
.Bold = msoTrue
.Size = 30
End With
End With
With .Callout
.Accent = MsoTrue
.Angle = msoCalloutAngle30
.Border = MsoFalse
.PresetDrop msoCalloutDropTop
.Type = msoCalloutThree
End With
End With
End Sub