自定义工具栏太多了，如何能两行显示？

陈王宇翔

自定义工具栏太多了，如何能两行显示？ 1.rar (31.32 KB, 下载次数: 20)

2025-4-5 18:11 上传

点击文件名下载附件

q490525427

搜一下有很多案例，照搬就行

陈王宇翔

自已顶一下

micch

起名起 短一点；文字中间换行；换别的方式开发

opiona

我写了一个通用的, 可以加图标, 但是Excel中不太美观
当然你可以不加图标

新建文件夹.rar (145.44 KB, 下载次数: 29)

2025-4-6 10:13 上传

点击文件名下载附件

Excel


WPS

1. 
   
2. '*********************************
   
3. '*******  北极狐工作室出品  ******
   
4. '*******  QQ：14885553      ******
   
5. '*********************************
   
6. Option Explicit  '//强制声明变量
   
7. 
   
8. 
   
9. '''Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
10. '''    Call DeleteToolbar
    
11. '''End Sub
    
12. '''
    
13. '''Private Sub Workbook_Open()
    
14. '''    Call NowToolbar
    
15. '''End Sub
    
16. 
    
17. 
    
18. Sub NowToolbar(Optional ByVal BLTemp As Boolean = False)
    
19.     Dim Toolbar As CommandBar '声明变量类型
    
20.     Dim I, X As Integer
    
21.     Dim StrX As String
    
22.     Dim ARX
    
23.     Dim sCaption As Variant   '//按钮控件(菜单)的标题
    
24.    
    
25.     On Error Resume Next '错误处理,因为在下句删除的代码中,如果工具栏还没有添加,代码会出错
    
26.    
    
27.     Call DeleteToolbar  '首先删除工具栏,如果已添加的话,避免重复添加
    
28.    
    
29.     Rem 如果空白占位按钮: [,                    ,]
    
30.     StrX = ""
    
31.     StrX = "业务报告防伪报备系统,关联方汇总,审定表导引表,调整分录表,现金流量表试算"
    
32.     StrX = StrX & ",|,资产试算平衡表,负债试算平衡表,利润试算平衡表,excel附注"
    
33.     StrX = StrX & ",|,资产负债表,损益表,现金流量表,汇总询证列表,银行询证列表,文改数"
    
34.    
    
35.     ARX = Split(StrX, "|")
    
36.     For X = 0 To UBound(ARX)
    
37.         sCaption = Split(ARX(X), ",") '按钮控件的标题
    
38.         Rem 创建一个命令栏
    
39.         Set Toolbar = Application.CommandBars.Add(Name:="MyToolbar_" & X, Position:=msoBarFloating)
    
40.         With Toolbar '上一句新建一个命令栏,将PositiLTIPTEXT=n参数设置成msoBarFloating,使命令栏为浮动工具栏
    
41.             .Position = msoBarTop
    
42.             .Protection = msoBarNoMove '// msoBarNoResize '命令栏的保护类型
    
43.             .Visible = True '命令栏可见
    
44.             For I = 0 To UBound(sCaption) '在新命令栏中添加菜单
    
45.                 With .Controls.Add(Type:=msoControlButton) '为按钮控件
    
46.                     .Caption = sCaption(I) '设置添加按钮控件的标题
    
47.                     .BeginGroup = True '分隔线
    
48.                     If Trim(sCaption(I)) <> "" Then
    
49.                         Rem 自定义图标
    
50.                         .Picture = LoadPicture(ThisWorkbook.Path & "\ICON" & sCaption(I) & ".BMP")
    
51.                         .Mask = LoadPicture(ThisWorkbook.Path & "\ICON" & sCaption(I) & ".BMP")
    
52.                         Rem 解释文本
    
53.                         .TooltipText = sCaption(I)
    
54.                         Rem 样式
    
55.                         .Style = msoButtonIconAndCaption '设置按钮控件的Style属性为msoButtonIconAndCaptionBelow，使工具栏按钮显示时包含图标和标题，且标题位于图标之下。
    
56.                         Rem 响应过程
    
57.                         .OnAction = "BAR_" & sCaption(I) '设置添加按钮控件所运行的宏名称
    
58.                     End If
    
59.                 End With
    
60.             Next
    
61.         End With
    
62.     Next
    
63.     Set Toolbar = Nothing '销毁对象
    
64. End Sub
    
65. 
    
66. Sub DeleteToolbar(Optional ByVal BLTemp As Boolean = False)
    
67.     On Error Resume Next
    
68.     Dim BAR As CommandBar '声明变量类型
    
69.     Rem Application.CommandBars("MyToolbar").Delete '删除命令栏
    
70.     For Each BAR In Application.CommandBars
    
71.         If InStr(BAR.Name, "MyToolbar") > 0 Then BAR.Delete
    
72.         
    
73.     Next
    
74. End Sub
    
75. 
    
76. 
    
77. 
    

复制代码

再有就是那位知道如何删除Excel中的这个: 菜单命令

陈王宇翔

opiona 发表于 2025-4-6 10:16
我写了一个通用的, 可以加图标, 但是Excel中不太美观
当然你可以不加图标

老师，这个退出时好象没有删除

Sub DeleteToolbar(Optional ByVal BLTemp As Boolean = False)
    On Error Resume Next
    Dim BAR As CommandBar '声明变量类型
    Rem Application.CommandBars("MyToolbar").Delete
    For Each BAR In Application.CommandBars
        If InStr(BAR.Name, "MyToolbar") > 0 Then BAR.Delete
        
    Next
End Sub

wcj6376tcp

opiona 发表于 2025-4-6 10:16
我写了一个通用的, 可以加图标, 但是Excel中不太美观
当然你可以不加图标

老师你不是用 Custom UI Editor For Microsoft Office编辑的哒，那就看看你加载了什么自定义的xla xlam

opiona

陈王宇翔 发表于 2025-4-6 14:56
老师，这个退出时好象没有删除

Sub DeleteToolbar(Optional ByVal BLTemp As Boolean = False)

打开文件时 在执行一次 DeleteToolbar  (去掉此过程的参数部分) 看看

opiona

wcj6376tcp 发表于 2025-4-6 15:44
老师你不是用 Custom UI Editor For Microsoft Office编辑的哒，那就看看你加载了什么自定义的xla xlam

问题根源找到了,去掉: 加载项 勾选 就不显示了
但是 菜单命令这个依旧在 加载项 下  如何彻底删除呢?

wcj6376tcp

opiona 发表于 2025-4-7 10:13
问题根源找到了,去掉: 加载项 勾选 就不显示了
但是 菜单命令这个依旧在 加载项 下  如何彻底删除呢?

...

好像可以就在你这张图的下面通过重置去掉、