Sub Test() Dim s As Shape Dim tf As TextureFill Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set tf = s.Fill.ApplyTextureFill("Scribbles") tf.SetProperties 14430, 5, 90 tf.RotationAngle = 45 tf.SkewAngle = 10End Sub