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.


Parameter	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 VBA 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