Sub Test() Dim sh As Shape For Each sh In ActivePage.Shapes sh.URL.Region = cdrURLRegionRectangle Next shEnd Sub