TextureFill.TileHeight

Property TileHeight As Double

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

The TileHeight 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