求助：代码生成的自定义菜单，完全关闭Excel后就消失，能否常驻。

zmnyu

各位，求助。
我用附件中的文件的open方法实现的下图这个菜单，这个文件关闭也可以正常使用。。

现在问题是，完全退出Excel后，再打开，这个菜单就消失了，请问有什么办法可以保留，一直使用。
加载宏可以实现这个效果，但不想手动设置加载宏。在论坛搜索了用代码生成加载宏的方法，也没有成功，请各位指教。
附件：
Demo_TableTools1.0.zip (15.38 KB, 下载次数: 5)

2020-1-21 17:03 上传

点击文件名下载附件

核心代码如下：

1. Public Sub AddinInstall()   '加载菜单
   
2. Dim Arr, X
   
3. 
   
4.     With ThisWorkbook.Worksheets("Mainsetting")
   
5.             Arr = .Range("A1").CurrentRegion.Value      '读取原有设置
   
6.             If IsArray(Arr) = False Then Exit Sub
   
7.     End With
   
8.     For X = 2 To UBound(Arr)
   
9.         If ExistsMenuBar(Arr(X, 2)) = False Then    '如果菜单不存在就添加
   
10.             AddMenuBar Arr(X, 2), Arr(X, 3), Arr(X, 4), Arr(X, 5), Arr(X, 6), Arr(X, 7)     '更新菜单
    
11.         End If
    
12.     Next
    
13. End Sub
    
14. 
    
15. '新建菜单
    
16. Function AddMenuBar(ByVal myCaption As String, ByVal myTooltipText As String, ByVal myStyle As Byte, _
    
17.                  ByVal myOnAction As String, ByVal myFaceid As Integer, ByVal myTag As String)
    
18. Dim myMenuBar, newMenu, Ctrl1
    
19. Dim myPic
    
20.     Set myMenuBar = CommandBars.ActiveMenuBar
    
21.     With myMenuBar.Controls.Add(1, , , 1, True)
    
22.         
    
23.         .Caption = myCaption
    
24.         .TooltipText = myTooltipText
    
25.         .Style = myStyle
    
26.         .OnAction = myOnAction
    
27.         If Len(myFaceid) > 0 Then .FaceId = myFaceid
    
28.         If Len(myTag) > 0 Then .Tag = myTag
    
29.     End With
    
30. End Function
    
31. 
    
32. '检测
    
33. Private Function ExistsMenuBar(ByVal myCaption As String) As Boolean        '检测菜单是否存在
    
34. Dim Bar, Bc
    
35.     For Each Bar In Application.CommandBars.ActiveMenuBar.Controls
    
36.         If Bar.Caption = myCaption Then
    
37.              ExistsMenuBar = True
    
38.              Exit Function
    
39.         End If
    
40.     Next
    
41. End Function

复制代码

凌空一羽

用Custom UI Editor For Microsoft Office来做

凌空一羽

Demo_TableTools1.0.rar (19.66 KB, 下载次数: 6)

2020-1-21 18:23 上传

点击文件名下载附件

zmnyu

凌空一羽 发表于 2020-1-21 18:23

我试了一下，这个应该是仅在当前文件显示按钮1和按钮2吧，打开其他Excel文档是没有的。不过仍然感谢。

IVYQQQQQ

用加载宏不好吗？打开任何EXCEL文件都会出现这个按钮，相当于EXCEL自带的按钮！你代码写在OPEN事件当然只能在打开时才有了，想要集成在EXCEL的工具档那要让微软开发了，
加载宏其实就是微软开放出来自定义的工具栏。

再复杂一点就是封装工具栏，新开一个选项卡加工具按钮列表，其实跟加载宏区别不大。

注：个人见解！

zmnyu

IVYQQQQQ 发表于 2020-1-22 08:49
用加载宏不好吗？打开任何EXCEL文件都会出现这个按钮，相当于EXCEL自带的按钮！你代码写在OPEN事件当然只能 ...

其实我想要的就是加载宏后的效果，由于要发给其他人使用，所以想用代码自动实现手动加载宏的步骤。