ShapeRange.ApplyTextureFill

Sub ApplyTextureFill(TextureName As String, [LibraryName As String])

The ApplyTextureFill method applies the specified texture fill effect to all of the objects in the range.


Parameters	Description
TextureName	Specifies the texture-fill pattern
LibraryName	Specifies the texture-fill library for the texture-fill pattern This parameter is optional.

The following code 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