ShapeRange.ApplyTextureFill method - Developer Area

API Documentation > CorelDRAW > X7.4 > 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	Specifies the texture-fill pattern
LibraryName	String	Specifies the texture-fill library for the texture-fill pattern.

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

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25