当前位置：首页 → 问答吧 → 如何建立自定义菜单?

如何建立自定义菜单?

时间：2004-06-07

来源：互联网

我正在练习着用OFFICE开发版开发程序。我想在EXCEL的帮助菜单旁边建立一个个性菜单（叫“我的工具”），“我的工具”菜单下又有两个菜单，分别是“计算”和“统计”，要求是点击“计算”菜单执行过程A，点击“统计”菜单执行过程B。因为我能力有限，不能实现以上操作。希望斑竹们给提供一个OFFICE开发版原程序文件.VBA。

OFFICE开发版原程序文件的扩展名为.VBA

作者: wwwq 发布时间: 2004-06-07

请各位朋友帮帮忙！谢谢

作者: wwwq 发布时间: 2004-06-08

简单，自定义菜单，添加两个菜单，分别加载宏过程就可以了。

作者: halfzx 发布时间: 2004-06-08

如果用VBA,把3楼的操作过程录制下来就行了

作者: 兰色幻想发布时间: 2004-06-08

论坛有好多这方面的帖子，一搜索一堆，搜索一下吧。

作者: 小奔发布时间: 2004-06-08

楼上的朋友，谢谢你们

你们说得是在EXCEL里编程，我现在OFFICE开发版里写程序，和在EXCEL里还不太一样。请ROWEN 版主和其他朋友帮忙看看！

作者: wwwq 发布时间: 2004-06-08

以下是引用wwwq在2004-6-7 21:37:00的发言：

OFFICE开发版原程序文件的扩展名为.VBA

你好:

請參考:

1.新增一個增益級專案(COM Addin)取名為 AddinXL,並寫入以下程式碼

Option Explicit

Implements IDTExtensibility2

Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)

End Sub

Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)

End Sub

Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)

Set xlapp = Application

Set MenuEvents = New ToolsMenuEvents

MenuEvents.CreateMenuItems

End Sub

Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)

MenuEvents.DeleteMenuItems

End Sub

Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)

End Sub

2.新增一個Class 模組,取名為 ToolsMenuEvents,並寫入以下程式碼

Private WithEvents btnMenuItem1 As Office.CommandBarButton

Private WithEvents btnMenuItem2 As Office.CommandBarButton

Private WithEvents btnMenuItem As Office.CommandBarButton

Sub CreateMenuItems()

With xlapp.CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)

.Caption = "MyToolBar"

Set btnMenuItem1 = .Controls.Add

With btnMenuItem1

.Caption = "計算"

.BeginGroup = True

End With

Set btnMenuItem2 = .Controls.Add

With btnMenuItem2

.Caption = "統計"

.BeginGroup = False

End With

End Sub

Sub DeleteMenuItems()

On Error Resume Next

xlapp.CommandBars(1).Controls("MyToolBar").Delete

End Sub

Private Sub btnMenuItem1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

MsgBox "計算"

End Sub

Private Sub btnMenuItem2_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

MsgBox "統計"

End Sub

3.新增一個Module,並宣告以下變數

Option Explicit

Option Private Module

Public xlapp As Excel.Application

Public MenuEvents As ToolsMenuEvents

4.將此專案名稱更名為TestToolsMenuEvents

完成後如附圖所示

3hZkM5zO.rar (14.75 KB)