Sub Test() Dim s As Shape Dim pf As PostScriptFill Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set pf = s.Fill.ApplyPostscriptFill(6) MsgBox pf.Name & " #" & pf.IndexEnd Sub