Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) s.Fill.ApplyTextureFill "Patches 2C" s.Fill.Texture.Properties("Background:").Value = CreateRGBColor(255, 0, 0)End Sub