VBA - Application display full screen

[hrayani]

Hello Friends,

When I use the below code it does display full screen like the screen shot # 1 whereas, I want it to display as screen shot # 2 like showing the option bar

Sub fullscreen()
Application.DisplayFullScreen = True
End Sub

Screen Shot # 1

Screen Shot # 2

 

[6StringJazzer]

Use this instead

Application.WindowState = xlMaximized

 

[hrayani]

Hi

Use this instead

Application.WindowState = xlMaximized

Jeff,

Thanks for the reply - but, it is still not working
still gives the below screen shot

 

[rollis13]

Hi to all.
This should be what you are asking for:
Application.CommandBars.ExecuteMso "MinimizeRibbon"
Same to restore.

 

[hrayani]

Hi to all.
This should be what you are asking for:
Application.CommandBars.ExecuteMso "MinimizeRibbon"
Same to restore.

Bingo!

There you go! THANKS

 

[rollis13]

Glad having been of some help.

 

[hrayani]

Hello Friends,

I Started this thread few months back & also found the solution here

Running this code works fine & full screen is on

Application.CommandBars.ExecuteMso "MinimizeRibbon"

Is there a way to detect if the full screen is on or of ???

Regards,

Humayun

 

[rollis13]

In a test file run this from a sheet and you will realize what you need in your project.

Option Explicit
Sub fullscreen()
    Application.DisplayFullScreen = True
    If Application.DisplayFullScreen = True Then MsgBox "Full screen"
    Application.DisplayFullScreen = False
    If Application.DisplayFullScreen = False Then MsgBox "Normal screen"
End Sub

 

[hrayani]

In a test file run this from a sheet and you will realize what you need in your project.

Option Explicit
Sub fullscreen()
    Application.DisplayFullScreen = True
    If Application.DisplayFullScreen = True Then MsgBox "Full screen"
    Application.DisplayFullScreen = False
    If Application.DisplayFullScreen = False Then MsgBox "Normal screen"
End Sub

Thanks