Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) s.Fill.ApplyPostscriptFill "Bubbles"End Sub