collection representing the color plates for the specified publication.
expression.Plates
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example returns the plates collection for the active publication and lists the names of all the color plates.
Dim plaTemp As Plates
Dim plaLoop As Plate
Set plaTemp = ActiveDocument.Plates
If ActiveDocument.ColorMode = pbColorModeDesktop Then
Debug.Print "Desktop color mode: No color plates!"
Else
For Each plaLoop In plaTemp
Debug.Print "The name of this plate is " & plaLoop.Name
Next plaLoop
End If