Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) Set s = s.Clone(3, 0) s.CloneLink.CloneParent.Fill.ApplyTextureFill "Patches 5C"End Sub