Excel2007中生成Excel2003經典菜單

《Excel2007中生成Excel2003經典菜單》由會員分享，可在線閱讀，更多相關《Excel2007中生成Excel2003經典菜單（2頁珍藏版）》請在裝配圖網上搜索。

1、從2007版界面的變動，讓很多習慣于舊版界面的用戶不太適應，因此收集了下面兩個在excel2007/2010中，生成經典菜單的VBA代碼:Sub 添加2003版菜單到右鍵菜單中()With Application.CommandBars(cell).ResetWith.Controls.Add(Type:=msoControlButton,before:=1).Caption=2003版菜單.BeginGroup=True.OnAction=菜單2003End WithEnd WithEnd SubSub 菜單2003()Application.CommandBars(Built-in Men

2、us).ShowPopupEnd SubSub 重置右鍵菜單()Application.CommandBars(cell).ResetEnd SubSub 生成2003版菜單在加載項中()Set tbar=CommandBars.Add(Excelba)tbar.Visible=TrueFor Each a In Array(1,4,8,10,13,18,23,27,28)CommandBars(Built-in Menus).Controls(a).Copy(tbar)NextEnd SubSub 刪除加載項中2003版菜單()CommandBars(Excelba).DeleteEnd Sub從2007版界面的變動，讓很多習慣于舊版界面的用戶不太適應，因此收集了下面兩個在excel2007/2010中，生成經典菜單的VBA代碼: