Fill.ApplyTextureFill

Function ApplyTextureFill(TextureName As String, [LibraryName As String]) As TextureFill

Member of Fill

The ApplyTextureFill method applies a texture fill to a shape.


Parameters	Description
TextureName	Specifies the name of a texture fill pattern
LibraryName	Specifies the name of the texture library. If this value is omitted, the main styles are used. This parameter is optional.

The following code example applies the Blend Edges texture from the Styles library:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) 
 s.Fill.ApplyTextureFill "Blend Edges" 
End Sub 
Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) 
 s.Fill.ApplyTextureFill "Alien Eyes", "Samples 9" 
End Sub