Object Model Reference : Classes : P : PostScriptFill : Methods : PostScriptFill.Select |
Sub Select(IndexOrName As Variant)
Member of PostScriptFill
The Select method chooses a specified PostScript fill by referencing the index number of name of the fill.
The following VBA example replaces the Birds pattern with the ColorBubbles for all shapes on the page.
Sub Test() |
Dim s As Shape |
For Each s In ActivePage.Shapes |
If s.Fill.Type = cdrPostscriptFill Then |
If s.Fill.PostScript.Name = "Birds" Then |
s.Fill.PostScript.Select "ColorBubbles" |
End If |
End If |
Next s |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.