Share via


Angle Property [Publisher 2003 VBA Language Reference]

Angle property as it applies to the CalloutFormat object.

MsoCalloutAngleType

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 PrintablePlate 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.

Remarks

The InkName property of the specific PrintablePlate object determines its default angle.

InkName: Default Angle:
pbInkNameBlack 45
pbInkNameCyan 105
pbInkNameMagenta 75
pbInkNameYellow 90
pbInkNameSpot1 45
pbInkNameSpot2 105
pbInkNameSpot3 75
pbInkNameSpot4 30
pbInkNameSpot5 60
pbInkNameSpot6 90
pbInkNameSpot7 135
pbInkNameSpot8 15
pbInkNameSpot9 165
pbInkNameSpot10 120
pbInkNameSpot11 150
pbInkNameSpot12 0

To specify a custom angle setting for a printable plate, the UseCustomHalftone of the AdvancedPrintOptions object must be set to True. Returns "Permission Denied" if the UseCustomHalftone is set to False.

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 PrintablePlate object.

This example sets the spot color plates (plates five and higher) of a process and spot color publication to the same custom angle and frequency. The example assumes that the publication's color mode has been specified as process and spot colors, and the publication's print mode has been specified as separations.

Sub SetSpotColorPlatesProperties()

ActiveDocument.AdvancedPrintOptions.UseCustomHalftone = True

Dim intCount As Integer

With ActiveDocument.AdvancedPrintOptions.PrintablePlates
    For intCount = 5 To .Count
        With .Item(intCount)
            .Angle = 45
            .Frequency = 150
        End With
    Next
End With

End Sub

Applies to | CalloutFormat Object | PrintablePlate Object