Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
Hi Vidya,
Macro to Auminimize the sheetobjects
Sub Minimize
Set S=ActiveDocument.Sheets("main")
For i=0 to S.NoofSheetsobjects-1
S.Sheetobjects(i).Minimize)
next
End Sub
Try the above
Cheers,
Ajay
Hi Vidya,
Macro to Auminimize the sheetobjects
Sub Minimize
Set S=ActiveDocument.Sheets("main")
For i=0 to S.NoofSheetsobjects-1
S.Sheetobjects(i).Minimize)
next
End Sub
Try the above
Cheers,
Ajay