API Documentation > CorelDRAW > 2025-v26 > ShapeRange > IVGShapeRange
ShapeRange.ApplyTextureFill method
Apply a Texture Fill to all shapes in the range
Syntax:
Sub ApplyTextureFill(ByVal TextureName As String, Optional ByVal LibraryName As String)
Parameters:
Name Type Description
TextureName
String
LibraryName
String
Remarks:
The ApplyTextureFill method applies a specified texture fill to all the shapes in a shape range.
Examples:
The following VBA example applies a texture fill to each shape that has an Overprint fill.
Sub Test()
Dim sr As New ShapeRange
Dim s As Shape
For Each s In ActivePage.Shapes
  If s.OverprintFill Then sr.Add s
  Next s
  sr.ApplyTextureFill "Cement", "Samples 8"

End Sub