Angle Property

Angle property as it applies to the CalloutFormat object.

Returns or sets an MsoCalloutAngleType constant that represents the angle of the callout line. If the callout line contains more than one line segment, this property returns or sets the angle of the segment that is farthest from the callout text box. Read/write.

MsoCalloutAngleType can be one of these MsoCalloutAngleType constants.

msoCalloutAngle30

msoCalloutAngle45

msoCalloutAngle60

msoCalloutAngle90

msoCalloutAngleAutomatic

msoCalloutAngleMixed

expression.Angle

expression Required. An expression that returns a CalloutFormat object.

Remarks

If you set the value of this property to anything other than msoCalloutAngleAutomatic, the callout line maintains a fixed angle as you drag the callout.

Angle property as it applies to the Plate object.

Returns or sets a Long that represents the angle of a printer's color plate. Read/write.

expression.Angle

expression Required. An expression that returns one of the above objects.

Example

As it applies to the CalloutFormat object.

This example sets the callout angle to 90 degrees for the first shape on the first page of the active publication. For this example to work, the specified shape must be a callout.

Sub SetCalloutAngle()
    ActiveDocument.Pages(1).Shapes(1).Callout.Angle = msoCalloutAngle90
End Sub

As it applies to the Plate object.

This example creates a plate collection in the active publication and adds and formats a new plate.

Sub SetPlateAngle()
    Dim pltNew As Plates

    Set pltNew = ActiveDocument.CreatePlateCollection(pbColorModeSpot)
    pltNew.Add

    With pltNew(1)
        .Color.RGB = RGB(Red:=150, Green:=20, Blue:=150)
        .Angle = 1
        .Frequency = 2
        .Luminance = 4
    End With
End Sub