[已解决]怎么在选项卡位置新建自己的菜单栏呢？

一沫昔阳虹w

如图，在加载项选项卡，建立自己的菜单栏，VBA代码怎么写？谢谢

最佳答案

月排行榜 / 总排行榜

today0427

2016-10-25 17:25

excel2007以后的版本就不能像2003里一样随心所欲的在工具栏自定义添加菜单命令了，添加的菜单命令都会以加载项的形式显示在最后一个选项卡中，以下随便写了一个作为示例，效果图如下可以参考下。


如果想随心所欲在选项卡中添加命令，想在哪儿显示就在哪儿显示，想屏蔽哪个按钮就屏蔽，那就需要用UI工具写成XML文件加载进来，效果图如下：

1. 
   
2. Sub 自定义工具栏()
   
3. Dim i%
   
4. On Error Resume Next
   
5. sc
   
6.     Dim mybar As CommandBar, mycl
   
7.     Set mybar = Application.CommandBars.Add("菜单命令", , , 1)
   
8.    mybar.Visible = True
   
9.    For i = 1 To 3
   
10.     Set mycl = mybar.Controls.Add
    
11.     mycl.Caption = Choose(i, "我", "你", "他")
    
12.     mycl.FaceId = 20 + i
    
13.     Next
    
14. End Sub
    
15. Sub sc()
    
16. Application.CommandBars("菜单命令").Delete
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

today0427

excel2007以后的版本就不能像2003里一样随心所欲的在工具栏自定义添加菜单命令了，添加的菜单命令都会以加载项的形式显示在最后一个选项卡中，以下随便写了一个作为示例，效果图如下可以参考下。


如果想随心所欲在选项卡中添加命令，想在哪儿显示就在哪儿显示，想屏蔽哪个按钮就屏蔽，那就需要用UI工具写成XML文件加载进来，效果图如下：

1. 
   
2. Sub 自定义工具栏()
   
3. Dim i%
   
4. On Error Resume Next
   
5. sc
   
6.     Dim mybar As CommandBar, mycl
   
7.     Set mybar = Application.CommandBars.Add("菜单命令", , , 1)
   
8.    mybar.Visible = True
   
9.    For i = 1 To 3
   
10.     Set mycl = mybar.Controls.Add
    
11.     mycl.Caption = Choose(i, "我", "你", "他")
    
12.     mycl.FaceId = 20 + i
    
13.     Next
    
14. End Sub
    
15. Sub sc()
    
16. Application.CommandBars("菜单命令").Delete
    
17. End Sub
    

复制代码

一沫昔阳虹w

today0427 发表于 2016-10-25 17:25
excel2007以后的版本就不能像2003里一样随心所欲的在工具栏自定义添加菜单命令了，添加的菜单命令都会以加 ...

谢谢！  为什么这个代码，可以创建  "自定义工具栏"  这个组呢，代码里没看到定义这个名词呢？

today0427

Sub 自定义工具栏()

一沫昔阳虹w

today0427 发表于 2016-10-26 15:42
Sub 自定义工具栏()

Sub 自定义工具栏()   '这个定义的子过程名词，我试过改过这个名字，但是上面创建的组的名词还是 "自定义工具栏"

一沫昔阳虹w

today0427 发表于 2016-10-26 15:42
Sub 自定义工具栏()

顺便问一句，这条线，自己创建的msoCommandBarPopup，怎么显示出来？

today0427

一沫昔阳虹w 发表于 2016-10-26 15:54
Sub 自定义工具栏()   '这个定义的子过程名词，我试过改过这个名字，但是上面创建的组的名词还是 "自定义 ...

好像就是，我也不知道，我基本不用vba写这个，觉得特别不好用，你试试看用UI工具写，非常自由，功能比较完善！

一沫昔阳虹w

today0427 发表于 2016-10-26 16:26
好像就是，我也不知道，我基本不用vba写这个，觉得特别不好用，你试试看用UI工具写，非常自由，功能比较 ...

Excel的自定义IRibbonUI我会，倒是先学了那个，后来才知道CommandBar的；我这个主要用在Word上，这个比较方便，没有可查询Word的内置idMso方面的资料。
顺表请教一下，回调代码你也不用VBA吗？其他语言程序会更快些吗？

today0427

回调不就是在vba里面写啊，把他生成的回调语句粘贴出来放到模块里然后自己写语句。我也是学艺不精，word没用过，word里面的宏我只会录，你试过没，在ui里面为word写工具栏？说不定可以呢，我明天也去试试，不用请教，我还不如你

一沫昔阳虹w

today0427 发表于 2016-10-26 23:44
回调不就是在vba里面写啊，把他生成的回调语句粘贴出来放到模块里然后自己写语句。我也是学艺不精，word没 ...

诶，成功了，方法一样。
在分享一个这个，昨天下载的，Office 2007版的，应该没变化吧。