Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Fill.Type = cdrPostscriptFill Then If s.Fill.PostScript.Name = "Birds" Then s.Fill.PostScript.Select "ColorBubbles" End If End If Next sEnd Sub