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比分网开户 nba比分直播软件 8波比分网址 新疆35选7 山西泳坛夺金 球棎足球比分007 安徽时时彩 江西时时彩 快乐扑克 老快3 秒速时时彩 海南飞鱼 重庆幸运农场 胜平负 比分网比分网 江苏7位数 内蒙古时时彩