1 Reply Latest reply: May 14, 2010 2:14 AM by Shivarama krishna K RSS

    Macro for autominimising the objects in current active sheet..(Please post comments in any, for my further improvement)

       

       

       

       

       

       

       

       

       

       

       

       

       

       

       

       

       

       

       

       



       

       

      sub

       

       

      mat

      'Rem minimize all active sheet objects on active sheet

      set

       

       

      s=ActiveDocument.ActiveSheet

      for

       

       

      i=lbound(objs) to ubound

      (objs)

      msgbox

       

       

      (objs(i).GetCaption.Name.v)

      next

      end

       

       

      sub