PostScriptFill.Select

Sub Select(IndexOrName As Variant)

Member of PostScriptFill

The Select method chooses a specified PostScript fill by referencing the fill’s name or index number.

The following code 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 2007 Corel Corporation. All rights reserved.