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 = 2 tf.TileWidth = 2 tf.TransformWithShape = False Set s = s.Duplicate(4, 0) s.StretchEx 2, 3, 4, 0End Sub