TextureFill.TileWidth

Property TileWidth As Double

The TileWidth property returns or sets the horizontal size of a tile in a texture-fill pattern.

The TileWidth property is measured in document units.

The following code example applies a texture pattern to a rectangle, so that the tile is repeated twice horizontally and three times vertically:

Sub Test() 
 Dim s As Shape 
 Dim tf As TextureFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set tf = s.Fill.ApplyTextureFill("Water Color") 
 tf.TileHeight = s.SizeWidth / 2 
 tf.TileWidth = s.SizeHeight / 3 
End Sub