Macro to display full screen automatically

[jh3016]

I have an Excel workbook that has several spreadsheets. I am using it as a
presentation so I want it to always display in full screen. Is there a way
to do this?


Thanks in advance.

[Dave Peterson]

One way:

Option Explicit
Sub auto_open()
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
'Application.DisplayFullScreen = True
End Sub

I'm not sure if you want that 3rd one. It's the equivalent of View|Full Screen.

jh3016 wrote:
>
> I have an Excel workbook that has several spreadsheets. I am using it as a
> presentation so I want it to always display in full screen. Is there a way
> to do this?
>
> Thanks in advance.

--

Dave Peterson

[jh3016]

I right-clicked on the first tab in workbook and put in the below code in The
Workbook. However, the screen still does not go to Full Screen. I would
like the entire screen to appear just as if I would have pressed View Full
Screen.

Thanks for your help.

"Dave Peterson" wrote:

> One way:
>
> Option Explicit
> Sub auto_open()
> Application.WindowState = xlMaximized
> ActiveWindow.WindowState = xlMaximized
> 'Application.DisplayFullScreen = True
> End Sub
>
> I'm not sure if you want that 3rd one. It's the equivalent of View|Full Screen.
>
> jh3016 wrote:
> >
> > I have an Excel workbook that has several spreadsheets. I am using it as a
> > presentation so I want it to always display in full screen. Is there a way
> > to do this?
> >
> > Thanks in advance.
>
> --
>
> Dave Peterson
>

[Dave Peterson]

This code should go in a general module--not behind a worksheet and not behind
ThisWorkbook.

Uncomment that last line and then save and close the workbook.

Then reopen it to test it out.

(Don't forget to clean up that stuff you put in the worksheet module.)

jh3016 wrote:
>
> I right-clicked on the first tab in workbook and put in the below code in The
> Workbook. However, the screen still does not go to Full Screen. I would
> like the entire screen to appear just as if I would have pressed View Full
> Screen.
>
> Thanks for your help.
>
> "Dave Peterson" wrote:
>
> > One way:
> >
> > Option Explicit
> > Sub auto_open()
> > Application.WindowState = xlMaximized
> > ActiveWindow.WindowState = xlMaximized
> > 'Application.DisplayFullScreen = True
> > End Sub
> >
> > I'm not sure if you want that 3rd one. It's the equivalent of View|Full Screen.
> >
> > jh3016 wrote:
> > >
> > > I have an Excel workbook that has several spreadsheets. I am using it as a
> > > presentation so I want it to always display in full screen. Is there a way
> > > to do this?
> > >
> > > Thanks in advance.
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson

[jh3016]

Thank you so much. This worked like a charm!

"Dave Peterson" wrote:

> This code should go in a general module--not behind a worksheet and not behind
> ThisWorkbook.
>
> Uncomment that last line and then save and close the workbook.
>
> Then reopen it to test it out.
>
> (Don't forget to clean up that stuff you put in the worksheet module.)
>
> jh3016 wrote:
> >
> > I right-clicked on the first tab in workbook and put in the below code in The
> > Workbook. However, the screen still does not go to Full Screen. I would
> > like the entire screen to appear just as if I would have pressed View Full
> > Screen.
> >
> > Thanks for your help.
> >
> > "Dave Peterson" wrote:
> >
> > > One way:
> > >
> > > Option Explicit
> > > Sub auto_open()
> > > Application.WindowState = xlMaximized
> > > ActiveWindow.WindowState = xlMaximized
> > > 'Application.DisplayFullScreen = True
> > > End Sub
> > >
> > > I'm not sure if you want that 3rd one. It's the equivalent of View|Full Screen.
> > >
> > > jh3016 wrote:
> > > >
> > > > I have an Excel workbook that has several spreadsheets. I am using it as a
> > > > presentation so I want it to always display in full screen. Is there a way
> > > > to do this?
> > > >
> > > > Thanks in advance.
> > >
> > > --
> > >
> > > Dave Peterson
> > >
>
> --
>
> Dave Peterson
>