Sub Test() Dim s As Shape Dim tf As TextureFill Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) Set tf = s.Fill.ApplyTextureFill("Dark Cloud", "Samples 8") tf.Properties("Texture #:").Value = 150 tf.Properties("Top left:").Value = CreateRGBColor(255, 0, 0)End Sub