table and charts in full screen

[m.zaeim]

hi.. i wanna know how can i have table and charts of a sheet Full screened and FITTED (in every size of monitors ) when i click on the button1 ..
i have used this code but it didn't work properly

ActiveSheet.UsedRange.Select
ActiveSheet.ChartObjects.Select
Application.DisplayFullScreen = True
ActiveWindow.Zoom = True

[YasserKhalil]

Cross-Post at this link
https://www.excelguru.ca/forums/showthread.php?8357-fitting-table-and-charts-in-full-screen
http://www.ozgrid.com/forum/showthread.php?t=205496