VBA能做出菜单栏吗？每台电脑都可以使用。

pandengyisun

VBA能做出菜单栏吗？如下图所示。要求如下：
１.每台装有Microsoft Office的电脑都可以使用该菜单。

02761752696

Excel的自定义IRibbonUI

zjdh

2003版可以，2007版及以上不可以。

yanhj

在thisWorkbook页下的代码，打开EXCEL就激活以下程序
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Deletemenu
End Sub
Private Sub Workbook_Open()
Call createmenu
'Sheet1.Visible = xlSheetVeryHidden
Sheet1.Visible = xlSheetVisible
End Sub
在模块下的程序
Public Menuobject As CommandBarPopup
Public memuitem As Object
Public SubMenuItem As Object
Public ActivateForm1 As Object

Public Sub createmenu()
Call Deletemenu
Set Menuobject = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=11, temporary:=True)
Menuobject.Caption = "操作"
Set MenuItem = Menuobject.Controls.Add(Type:=msoControlButton)
MenuItem.Caption = "AAAA"
MenuItem.OnAction = "AAAA"
Set Menuobject = Nothing
Set SubMenuItem = Nothing
End Sub

Public Sub Deletemenu()
On Error Resume Next
Application.CommandBars(1).Controls("操作").Delete
On Error GoTo 0
End Sub

Public Sub AAAA()
。。。。。。。
End Sub

pandengyisun

02761752696 发表于 2016-10-27 08:14
Excel的自定义IRibbonUI

自定义只能添加Excel现有的功能，我想把我自己写的程序放到菜单栏上面。

pandengyisun

zjdh 发表于 2016-10-27 08:23
2003版可以，2007版及以上不可以。

是不是2007版以上只能用VSTO了？

pandengyisun

yanhj 发表于 2016-10-27 08:34
在thisWorkbook页下的代码，打开EXCEL就激活以下程序
Private Sub Workbook_BeforeClose(Cancel As Boolea ...

很感谢你，这个确实能够实现。
但也有一个问题，就是他们不用我的模板就不能生成这个按钮。有没有办法做成任何人不用我的模板都有我自己开发的按钮？

一沫昔阳虹w

自定义UI,然后写回调代码，把按钮和你的程序对应上，然后在做成加载宏（或其他封装形式）

一沫昔阳虹w

不过上面这个是怎么做到的啊，厉害啊

zjdh

pandengyisun 发表于 2016-10-27 10:54
很感谢你，这个确实能够实现。
但也有一个问题，就是他们不用我的模板就不能生成这个按钮。有没有办法做 ...

仅需要添加菜单，那2007级以上也可实现，可在我的“范例”中修改、添加。
菜单范例.rar (7.48 KB, 下载次数: 27)

2016-10-27 15:33 上传

点击文件名下载附件