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