The Index property returns the index number associated with a PostScript fill.
Examples:
The following VBA example applies the sixth (6th) available PostScript fill to a rectangle and displays its name.
Sub Test()
Dim s As Shape
Dim pf As PostScriptFill
Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4)
Set pf = s.Fill.ApplyPostscriptFill(6)
MsgBox pf.Name & " #" & pf.Index
End Sub