TextureFill.TileOffset

Property TileOffset As Long

The TileOffset property returns or sets the offset, measured as a percentage of the size of the tile of a texture-fill pattern.

You can use the TileOffsetType to specify whether the pattern is offset by row or by column.

The following code example applies a texture pattern to a rectangle and offsets each row of tiles by 20%, relative to each other:

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 = 0.5 
 tf.TileWidth = 0.5 
 tf.TileOffsetType = cdrTileOffsetRow 
 tf.TileOffset = 20 
End Sub