188比分网开户|188比分足球直播
VBA生成Excel2003經典菜單
責任編輯:hylng    瀏覽:3018次    時間: 2012-12-31 23:24:48      

摘要:雖然Excel的最新版本已經是2010版,但還是不少人還一直在用Excel2003以下版,或者還習慣于老版本的經典菜單。從2007版界面的變動,讓很多習慣于舊版界面的用戶不太適應,因此收集了下面兩個在新版中,生成經典菜單的VBA代碼: 添加2003版菜單到右鍵菜單中() With App..

分享到:

雖然Excel的最新版本已經是2010版,但還是不少人還一直在用Excel2003以下版,或者還習慣于老版本的經典菜單。從2007版界面的變動,讓很多習慣于舊版界面的用戶不太適應,因此收集了下面兩個在新版中,生成經典菜單的VBA代碼:

 添加2003版菜單到右鍵菜單中()
With Application.CommandBars("cell")
.Reset
With .Controls.Add(Type:=msoControlButton, before:=1)
.Caption = "2003版菜單"
.BeginGroup = True
.OnAction = "菜單2003"
End With
End With
End Sub
Sub 菜單2003()
Application.CommandBars("Built-in Menus").ShowPopup
End Sub
Sub 重置右鍵菜單()
Application.CommandBars("cell").Reset
End Sub

Sub 生成2003版菜單在加載項中()
Set tbar = CommandBars.Add("Excelba")
tbar.Visible = True
For Each a In Array(1, 4, 8, 10, 13, 18, 23, 27, 28)
CommandBars("Built-in Menus").Controls(a).Copy (tbar)
Next
End Sub
Sub 刪除加載項中2003版菜單()
CommandBars("Excelba").Delete
End Sub

】【打印繁體】【投稿】 【收藏】 【推薦】 【舉報】 【評論】 【關閉】【返回頂部
188比分网开户 福彩18选7走势图 上证指数(000001)新浪财经 黑龙江省p62开奖 000009股票行情和讯网 上海麻将免费 2012年3月上证指数 三浦恵理子 2013最新足球比分网站 日本女优丝袜视频 15选5开奖结果今 吉泽明野 广东十一选五高手推 手机麻将上下分违法吗? 华东六省15选五今天开奖结果 10月15日股票推荐 黄色片免费