可以使用下面的代码来隐藏Office 2007功能区:
'隐藏整个功能区
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
运行后的效果如下图,功能区、快速访问工具栏、Office菜单都消失了。
 要重新显示整个功能区,运行下面的代码:
'显示整个功能区
Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub
|