Fullscreen with Status Bar using VBA

[Vivek D]

I've created a dashboard and display it full screen using VBA.

Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False

However, I would like to display the status bar even in Full screen mode.

Is there a way to do that?

 

[Deepak]

Application.DisplayStatusBar=true

 

[Vivek D]

Actually, forgot to mention that I did try that earlier but the Status Bar still did not show up.

 

[Deepak]

Check this!!!

Sub test()
With Application
    .DisplayFormulaBar = True
    .ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", true)"
    .WindowState = xlMaximized
    ActiveWindow.DisplayHeadings = True
End With
End Sub

 

[Vivek D]

Check this!!!

Sub test()
With Application
    .DisplayFormulaBar = True
    .ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", true)"
    .WindowState = xlMaximized
    ActiveWindow.DisplayHeadings = True
End With
End Sub

Thanks. That worked! Although I think you meant to write the false instead of true to ensure nothing but just the status bar shows up.

Sub test()
With Application
    .DisplayFormulaBar = False
    .ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", False)"
    .WindowState = xlMaximized
    ActiveWindow.DisplayHeadings = False
End With
End Sub

[/quote]

 

[Deepak]

Oh. My bad..
I write up true instead of false.