TrapLayer.Density

Property Density As Double

The Density property returns or sets the neutral density of a color.

The following code example displays the density of the yellow plate:

Sub Test() 
 Dim intCounter As Integer 
 With ActiveDocument.PrintSettings.Trapping 
  For intCounter = 1 To .Layers.Count - 1 
   If .Layers.Item(intCounter).Color = "Yellow" Then 
    MsgBox "The density of the yellow plate is " & _ 
     .Layers.Item(intCounter).Density 
   End If 
  Next intCounter 
 End With 
End Sub