Sub Test() Dim sr As ShapeRange Set sr = ActivePage.FindShapes(Type:=cdrTextShape) sr.ApplyPostscriptFill "Bricks"End Sub