TextureFill.OriginX

Property OriginX As Double

The OriginX property returns or sets the horizontal offset of the tile from the lower-left corner of the parent shape.

The OriginX property is measured in document units.

The following code example applies a texture to a rectangle and offsets the tile by 1" to the left:

Sub Test() 
 Dim s As Shape 
 Dim tf As TextureFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set tf = s.Fill.ApplyTextureFill("Above the Storm", "Samples 9") 
 tf.OriginX = 1 
End Sub