利用vba創(chuàng)建excel新菜單

1、利用利用VBAVBA創(chuàng)建創(chuàng)建ExcelExcel新菜單新菜單利用VBA創(chuàng)建Excel新菜單.txt等余震的心情，就像初戀的少女等情人，既怕他不來，又怕他亂來。聽說女人如衣服，兄弟如手足，回想起來，我竟然七手八腳地裸奔了二十多年！今天心情不好，我只有四句話想說，包括這句和前面的兩句，我的話說完了！利用VBA創(chuàng)建Excel新菜單使用VBA，可以很方便地向Excel菜單欄添加新菜單。背景知識1、菜單欄屬于CommBars集合，可以通過菜單欄名

2、稱或索引值對其進行引用：CommBars(“WksheetMenuBar”)或CommBars(1)2、新添加的菜單是一個彈出式控件，其類型為msoControlPopup。3、通過Add方法向Controls集合中添加新的控件。Add方法可以指定控件的類型、內置控件的ID號、位置及是否是一個臨時控件。如果是一個臨時控件，則在關閉Excel時會自動刪除該菜單。4、可以指定新菜單的位置。如果不指定，則會在菜單工具欄末尾添加新菜單。5、使用

3、Caption屬性指定新菜單的名稱，使用OnAction屬性指定單擊菜單后的行為。6、為了避免指定的菜單不存在，可以使用FindControl方法查找要指定的菜單。若指定的菜單不存在，則在工作表菜單欄末尾添加新菜單。添加菜單向Excel工作表菜單欄中添加菜單的過程清單如下：SubAddNewMenu()DimHelpMenuAsCommBarControlDimNewMenuAsCommBarPopup利用ID屬性查找?guī)椭藛蜸etHe

4、lpMenu=CommBars(1).FindControl(ID:=30010)OnErrResumeNext如果菜單已存在則刪除該菜單CommBars(1).Controls(“統(tǒng)計(&S)“).利用ID屬性查找?guī)椭藛蜸etHelpMenu=CommBars(1).FindControl(ID:=30010)IfHelpMenuIsNothingThen如果該菜單不存在則將新菜單添加到末尾設置新菜單為臨時的SetNewMenu=C

5、ommBars(1).Controls_.Add(Type:=msoControlPopupTempary:=True)Else將新菜單添加到幫助菜單之前SetNewMenu=CommBars(1).Controls_.Add(Type:=msoControlPopupBefe:=HelpMenu.Index_Tempary:=True)EndIf添加菜單標題并指定熱鍵NewMenu.Caption=“統(tǒng)計(&S)“添加第一個菜單項Se