PostScriptFill.Index

Property Index As Long

Member of PostScriptFill

The Index property returns the index number associated with a PostScript fill.

The Index property returns a read-only value.

The following code example applies the sixth 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 

Copyright 2007 Corel Corporation. All rights reserved.