資源描述：
《excel_vba常用技巧_第07章菜單和工具欄》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。
1、VBA常用技巧代碼解析VBA常用技巧目錄VBA常用技巧1第7章菜單和工具欄2技巧1在菜單中添加菜單項2技巧2在菜單欄指定位置添加菜單5技巧3屏蔽和刪除工作表菜單7技巧4改變系統(tǒng)菜單的操作8技巧5定制自己的系統(tǒng)菜單9技巧6改變菜單按鈕圖標15技巧7右鍵快捷菜單增加菜單項16技巧8自定義右鍵快捷菜單17技巧9使用右鍵菜單制作數據有效性20技巧10禁用工作表右鍵菜單22技巧11創(chuàng)建自定義工具欄23技巧12自定義工具欄按鈕圖標26技巧13自定義工作簿圖標27技巧14移除工作表的最小最大化和關閉按鈕28技巧
2、15在工具欄上添加下拉列表框29技巧16屏蔽工作表的復制功能31技巧17禁用工具欄的自定義32技巧18屏蔽所有的命令欄35技巧19恢復Excel的命令欄3637VBA常用技巧代碼解析第7章菜單和工具欄技巧1在菜單中添加菜單項在Excel工作表的菜單中可以添加新的菜單項和子菜單，如下面的代碼所示。#001SubmyTools()#002DimmyToolsAsCommandBarPopup#003DimmyCapAsVariant#004DimmyidAsVariant#005DimiAsByte#
3、006myCap=Array("基礎應用","VBA程序開發(fā)","函數與公式","圖表與圖形","數據透視表")#007myid=Array(281,283,285,287,292)#008WithApplication.CommandBars("Worksheetmenubar")#009.Reset#010SetmyTools=.Controls("幫助(&H)").Controls.Add(Type:=msoControlPopup,Before:=1)#011WithmyTools#012
4、.Caption="ExcelHome技術論壇"#013.BeginGroup=True#014Fori=1To5#015With.Controls.Add(Type:=msoControlButton)#016.Caption=myCap(i-1)#017.FaceId=myid(i-1)#018.OnAction="myC"#019EndWith#020Next37VBA常用技巧代碼解析#021EndWith#022EndWith#023SetmyTools=Nothing#024EndSub
5、代碼解析：myTools過程使用Add方法在Excel工作表菜單欄中的“幫助”菜單中添加一個標題為“ExcelHome技術論壇”的菜單項和5個子菜單。第2行到第5行代碼聲明變量類型。第6、7行代碼使用Array函數創(chuàng)建兩個數組用于保存子菜單的名稱和圖標ID。第9行代碼，在添加菜單項前先使用Reset方法重置菜單欄以免重復添加菜單項。Reset方法重置一個內置控件，恢復該控件原來對應的動作，并將各屬性恢復成初始狀態(tài)，語法如下：expression.Reset參數expression?是必需的，返回一
6、個命令欄或命令欄控件對象。第10行代碼，使用Add方法在Excel工作表菜單欄中的“幫助”菜單中添加菜單項。Add方法應用于CommandBarControls對象時，新建一個CommandBarControl對象并添加到指定命令欄上的控件集合，語法如下：expression.Add(Type,Id,Parameter,Before,Temporary)參數expression?是必需的，返回一個CommandBarControls對象，代表命令欄中的所有控件。參數Type是可選的，添加到指定命令
7、欄的控件類型，可以為表格1 1所列的MsoControlType常數之一。常數值控件類型msoControlButton1命令按鈕msoControlEdit2文本框msoControlDropdown3下拉列表控制框msoControlComboBox4下拉組合控制框msoControlPopup10彈出式控件表格1 1MsoControlType常數因為在本例中將添加的是帶有子菜單的菜單項，所以將參數Type設置為彈出式控件。參數Id是可選的，標識整數。如果將該參數設置為1或者忽略，將在命令欄
8、中添加一個空的指定類型的自定義控件。參數Parameter是可選的，37VBA常用技巧代碼解析對于內置控件，該參數用于容器應用程序運行命令。對于自定義控件，可以使用該參數向VisualBasic過程傳遞信息，或用其存儲控件信息。參數Before是可選的，表示新控件在命令欄上位置的數字。新控件將插入到該位置控件之前。如果忽略該參數，控件將添加到指定命令欄的末端。本例中將Before參數設置為1，菜單項添加到“幫助”菜單的頂端。參數Temporary是可選的。設置為True將使添加的菜
