ShapeRange.ApplyPostscriptFill

Sub ApplyPostscriptFill(IndexOrName As Variant)

The ApplyPostscriptFill method applies the specified PostScript fill to all of the objects in the range.


Parameters	Description
IndexOrName	Specifies the fill by its index number or name

The following code example applies a PostScript fill to each text shape on the page:

Sub Test() 
 Dim sr As ShapeRange 
 Set sr = ActivePage.FindShapes(Type:=cdrTextShape) 
 sr.ApplyPostscriptFill "Bricks" 
End Sub