Sub Test() Dim s As Shape Dim tf As TextureFill Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set tf = s.Fill.ApplyTextureFill("Leather 3C") MsgBox "Max tile width = " & tf.MaximumTileWidthEnd Sub