Angle Property [Publisher 2003 VBA Language Reference]

Angle property as it applies to the CalloutFormat object.

MsoCalloutAngleType

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.

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