Selects the PostScript Fill by name or index
Syntax:
Sub Select(ByVal IndexOrName As Variant)
Parameters:
Name Type Description
IndexOrName
Variant
Remarks:
The Select method chooses a specified PostScript fill by referencing the index number of name of the fill.
Examples:
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