SeparationPlate.Angle

Property Angle As Double

The Angle property returns the angle of a separation plate.

The following code example displays the angle and frequency of each separation plate:

Sub Test() 
 Dim intPlateCounter As Integer 
 With ActiveDocument 
  With .PrintSettings.Separations.Plates 
   For intPlateCounter = 1 To .Count - 1 
    MsgBox "The angle of the " & .Item(intPlateCounter).Color & _ 
     " plate is " & .Item(intPlateCounter).Angle & vbCr & _ 
     " The frequency is " & .Item(intPlateCounter).Frequency 
   Next intPlateCounter 
  End With 
 End With 
End Sub