PostScriptFill.SetProperties

Sub SetProperties(Param1 As Long, [Param2 As Long], [Param3 As Long], [Param4 As Long], [Param5 As Long])

The SetProperties method allows you to set all of the properties of a PostScript fill at the same time.

The SetProperties method has placeholders for a maximum of five PostScript fill properties.


Parameters	Description
Param1	References the first property value of a PostScript fill object. For example, the Param1 value of the Bars PostScript fill is Width.
Param2	References the second property value of a PostScript fill object. For example, the Param2 value of the Bars fill references the Spacing (%) of the fill. This parameter is optional, and its default value is 0.
Param3	References the third property value of a PostScript fill object. For example, the Param3 value of the Bars fill references the Maximum gray value of the fill. This parameter is optional, and its default value is 0.
Param4	References the fourth property value of a PostScript fill object. For example, the Param4 value of the Bars fill references the Minimum gray value of the fill. This parameter is optional, and its default value is 0.
Param5	References the fifth property value of a PostScript fill object. For example, the Param5 value of the Checks fill references the Line width value of the fill. This parameter is optional, and its default value is 0.

The following code example applies applies the ColorBubbles pattern to a rectangle and specifies the following fill properties: Number of circles = 10, Max size=300, Min Size=100, Line Width = 26, and Random Seed = 10.

Sub Test() 
 Dim s As Shape 
 Dim pf As PostScriptFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set pf = s.Fill.ApplyPostscriptFill("ColorBubbles") 
 pf.SetProperties 10, 300, 100, 26, 10 
End Sub