可以使用下面的代碼來隱藏Office 2007功能區(qū):
'隱藏整個功能區(qū)
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
運(yùn)行后的效果如下圖,,功能區(qū),、快速訪問工具欄,、Office菜單都消失了。
要重新顯示整個功能區(qū),,運(yùn)行下面的代碼:
'顯示整個功能區(qū)
Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub
|