1、怎樣在EXCEL中創建自定義菜單vb源代碼SubaddToolBar()DimfoundflagAsBoolean'=增加工具欄=foundflag=FalseForEachctInCommandBars("standard").Controls'Debug.Printct.CaptionIfct.Captionv>"myMenu：我的自定義菜單"ThenElsefoundflag=TrueEndIfNextIffoundflag=FalseThenSetnewitem=CommandBars("standard"

2、;).Controls.Add(Type:=msoControlButton,ID:=1,Before:=19)'工具欄名稱類型按鈕ID為1自定義位置Withnewitem'.Style=msoButtonIconAndCaption'同時顯示圖標和說明.Style=msoButtonIcon'僅顯示按鍵圖標.Caption="myMenu：我的自定義菜單"為按鍵寫文字說明.OnAction="showAbout"'指定工作的宏.FaceId=459EndWithEndIfEndSubSubaddMenu()Dim

3、foundflagAsBoolean'=增加菜單欄=foundflag=FalseForEachctInCommandBars("WorksheetMenuBar").Controls'Debug.Printct.CaptionIfct.Captionv>"我的自定義菜單(&A)"ThenElsefoundflag=TrueEndIfNextIffoundflag=FalseThenSetnewMenu=CommandBars("WorksheetMenuBar").Controls.Add(Type:=

4、msoControlPopup,ID:=1,Before:=8)'工具欄名稱類型按鈕ID為1自定義位置WithnewMenu.Caption="我的自定義菜單(&A)"'為按鍵寫文字說明'.Controls.AddType:=msoControlPopup,ID:=1'再加入一層表單'=加這個按鍵就不判斷了，直接加，今后有擴展再另做方法SetAboutMenu=.Controls.Add(Type:=msoControlButton,ID:=1)'下拉菜單也是按鈕WithAboutMenu.Caption="

5、關于我的菜單(&A)".Style=msoControlIconAndCaption.OnAction="showAbout".FaceId=459.BeginGroup=True'畫上一線條EndWithSetnuinstallMenu=.Controls.Add(Type:=msoControlButton,ID:=1)WithnuinstallMenu'復原.Caption="卸載自定義菜單(&U)".Style=msoControlIconAndCaption.OnAction="uninsta

6、ll".FaceId=330EndWithEndWithEndIfEndSubSubAddrightMenu()'=增加右鍵菜單=DimfoundflagAsBooleanfoundflag=FalseForEachctInCommandBars("cell").Controls'Debug.Printct.CaptionIfct.Captionv>"我的自定義菜單(&A)"ThenElsefoundflag=TrueEndIfNextIffoundflag=FalseThenSetnewMenu=CommandB

7、ars("cell").Controls.Add(Type:=msoControlPopup,ID:=1)工具欄名稱類型-按鈕ID為1自定義位置WithnewMenu.Caption="我的自定義菜單(&A)"'為按鍵寫文字說明'.FaceId=577因為這是個多重菜單，所以沒有圖標，如果要圖標，就只能一層，用按鍵.BeginGroup=True'畫上一線條SetnextMenu=.Controls.Add(Type:=msoControlButton,ID:=1)WithnextMenu.Caption="關于

8、我的菜單(&A)".Style=msoControlIconAndCaption.OnAction="showAbout".FaceId=459EndWithEndWithEndIf'Application.CommandBars("PivotTableContextMenu").ResetEndSubSubshowAbout()f_About.ShowvbModalEndSubSubrightMenuReset()'右鍵菜單復位Application.CommandBars("cell").ResetEndSubSubuninstall()'=卸載=IfMsgBox("你確認要卸載我的自定義菜單嗎？",vbOKCancel+vbQuestion,"YiDie提醒您：")=vbOKThenApplication.CommandBars("cell").ResetApplication.CommandBars("WorksheetMenuBar").ResetApplication.CommandBars("standard").ResetMsgBox"菜