PatternFill.TileHeight

Property TileHeight As Double

The TileHeight property returns or sets the vertical size of a pattern tile, measured in document units.

The following code example applies a two-color bitmap pattern to a tile that is 3" wide ?1" high:

Sub Test() 
 Dim s As Shape 
 Dim pf As PatternFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set pf = s.Fill.ApplyPatternFill(cdrTwoColorPattern, , 8) 
 pf.TileWidth = 3 
 pf.TileHeight = 1 
End Sub