Sub Test() Dim s As Shape Dim pf As PostScriptFill Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set pf = s.Fill.ApplyPostscriptFill("ColorBubbles") pf.SetProperties 10, 300, 100, 26, 10End Sub