Sub Test() Dim s As Shape Dim pf As PostScriptFill Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set pf = s.Fill.ApplyPostscriptFill("Birds") pf.Properties(1) = 4 pf.Properties(4) = 50End Sub