API Documentation > CorelDRAW > 2025-v26 > ShapeRange > IVGShapeRange
ShapeRange.ApplyPostscriptFill method
Apply a PostScript Fill to all shapes in the range
Syntax:
Sub ApplyPostscriptFill(ByVal IndexOrName As Variant)
Parameters:
Name Type Description
IndexOrName
Variant
Remarks:
The ApplyPostscriptFill method applies a specified PostScript fill to all the shapes in a shape range.
Examples:
The following VBA 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