Object Model Reference : Classes : P : PostScriptFill : Methods : PostScriptFill.SetProperties |
Sub SetProperties(Param1 As Long, [Param2 As Long], [Param3 As Long], [Param4 As Long], [Param5 As Long])
Member of PostScriptFill
The SetProperties method allows you to set all the properties of a PostScript fill at the same time.
• |
The SetProperties method has placeholders for a maximum of five PostScript
fill properties.
|
The following VBA 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 |
Copyright 2013 Corel Corporation. All rights reserved.