Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to hide Excel's Top Menu Bar
On occasions, I need to display a single page (of a multiple page
spreadsheet) full-screen without any embellishment. My code for the relevant sheet is appended at the end of this post, with Application.DisplayFullScreen = True and ActiveWindow.DisplayWorkbookTabs = False doing the "work". This almost gives me what I want, except that the top level menu bar (FILE, EDIT, VIEW, INSERT, FORMAT, TOOLS, DATA, WINDOW, HELP) remains - and is needed at all other times. Is there a VBA method to hide this unwanted item? Option Explicit Private Sub Worksheet_Activate() Application.OnKey "{F5}", "TypeF5" ' PREVIOUS QUESTION Application.OnKey "{F6}", "TypeF6" ' NEXT QUESTION Application.DisplayFullScreen = True ActiveWindow.DisplayWorkbookTabs = False End Sub Private Sub Worksheet_Deactivate() Application.OnKey "{F5}" Application.OnKey "{F6}" Application.DisplayFullScreen = False ActiveWindow.DisplayWorkbookTabs = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to hide Excel's Top Menu Bar
CommandBars(1).Enabled = False
-- Vasant "Hotbird" wrote in message ... On occasions, I need to display a single page (of a multiple page spreadsheet) full-screen without any embellishment. My code for the relevant sheet is appended at the end of this post, with Application.DisplayFullScreen = True and ActiveWindow.DisplayWorkbookTabs = False doing the "work". This almost gives me what I want, except that the top level menu bar (FILE, EDIT, VIEW, INSERT, FORMAT, TOOLS, DATA, WINDOW, HELP) remains - and is needed at all other times. Is there a VBA method to hide this unwanted item? Option Explicit Private Sub Worksheet_Activate() Application.OnKey "{F5}", "TypeF5" ' PREVIOUS QUESTION Application.OnKey "{F6}", "TypeF6" ' NEXT QUESTION Application.DisplayFullScreen = True ActiveWindow.DisplayWorkbookTabs = False End Sub Private Sub Worksheet_Deactivate() Application.OnKey "{F5}" Application.OnKey "{F6}" Application.DisplayFullScreen = False ActiveWindow.DisplayWorkbookTabs = True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to hide Excel's Top Menu Bar
Hotbird
Sub hideme() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub Sub unHideme() Application.CommandBars("Worksheet Menu Bar").Enabled = True End Sub Gord Dibben XL2002 On Thu, 27 Nov 2003 01:03:37 -0000, "Hotbird" wrote: On occasions, I need to display a single page (of a multiple page spreadsheet) full-screen without any embellishment. My code for the relevant sheet is appended at the end of this post, with Application.DisplayFullScreen = True and ActiveWindow.DisplayWorkbookTabs = False doing the "work". This almost gives me what I want, except that the top level menu bar (FILE, EDIT, VIEW, INSERT, FORMAT, TOOLS, DATA, WINDOW, HELP) remains - and is needed at all other times. Is there a VBA method to hide this unwanted item? Option Explicit Private Sub Worksheet_Activate() Application.OnKey "{F5}", "TypeF5" ' PREVIOUS QUESTION Application.OnKey "{F6}", "TypeF6" ' NEXT QUESTION Application.DisplayFullScreen = True ActiveWindow.DisplayWorkbookTabs = False End Sub Private Sub Worksheet_Deactivate() Application.OnKey "{F5}" Application.OnKey "{F6}" Application.DisplayFullScreen = False ActiveWindow.DisplayWorkbookTabs = True End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to hide Excel's Top Menu Bar
Many thanks Gord and Vasant. Your solutions worked like a dream. What a
resource this NewsGroup is!!! <Gord Dibben wrote in message ... Sub hideme() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub Sub unHideme() Application.CommandBars("Worksheet Menu Bar").Enabled = True End Sub Gord Dibben XL2002 CommandBars(1).Enabled = False -- Vasant |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to hide Excel's Top Menu Bar
Thanks Hotbird
Great to get feedback. These newsgroup are definitely a great resource. Gord On Thu, 27 Nov 2003 21:49:04 -0000, "Hotbird" wrote: Many thanks Gord and Vasant. Your solutions worked like a dream. What a resource this NewsGroup is!!! <Gord Dibben wrote in message .. . Sub hideme() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub Sub unHideme() Application.CommandBars("Worksheet Menu Bar").Enabled = True End Sub Gord Dibben XL2002 CommandBars(1).Enabled = False |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i hide & unhide menu bar? | Excel Discussion (Misc queries) | |||
Hide bar above menu titles | Excel Discussion (Misc queries) | |||
excel's menu bar | Excel Discussion (Misc queries) | |||
How do I hide the Worksheet menu bar | Excel Worksheet Functions | |||
Truncated font list in Excel's "Insert Symbol" menu selection | Excel Discussion (Misc queries) |