excel vba 2010自定义工具箱/选项卡

estellezhang

我现在的实习与excelvba 有关可是一开始就卡住了 因为现在公司用excel2010 但是2003里面自定义的4个工具箱到 2010就乱了 全部挤在加载项里面 而且很多自己的宏不能用 请问有什么好办法吗？ 如果要重新用vba编写多个选项卡有自己的名字应该怎么写代码？ 我网上都没有看到相关的问题 急求您的帮助

Sub NowToolbar1()
     Dim arr As Variant
     'Dim arr1 As Variant
     Dim id As Variant
     Dim i As Integer
     Dim Toolbar As CommandBar        这句显示有问题 显示user difined type not defined不知道怎么回事新建的文档可以用一放进原来的文件就不行了
     On Error Resume Next
    Application.CommandBars("MyToolbar").Delete
    Application.CommandBars("MyToolbar").Name = "ETIMES"
     arr = Array("create MTM2", "create FERT", "create GAMME", "last page", "OPEN", "next page", "COPE")
     ' arr1 = Array("11", "22", "33", "44", "55", "66")
   
      id = Array(200, 300, 400, 500, 600, 700)
     Set Toolbar = Application.CommandBars.Add("MyToolbar", msoBarTop)
         With Toolbar
             .Protection = msoBarNoResize
             .Visible = True
             For i = 0 To 5
                 With .Controls.Add(Type:=msoControlButton)
                     .Caption = arr(i)
                     ' .OnAction = arr1(i)
                       .FaceId = id(i)
                     .BeginGroup = True
                      .Style = msoButtonIconAndCaptionBelow
                  End With
             Next
          End With
     Set Toolbar = Nothing
  End Sub

hwc2ycy

10里用新的功能区吧。

estellezhang

hwc2ycy 发表于 2013-2-26 21:45
10里用新的功能区吧。

可是怎么自定义新的功能区呢？ 我想用自己写好的一些宏  10的加载项好像不能改名字不知道VBA要怎么写

tfeng_no1

没有问题呀！！！！！！！！！！！！！！！！！！1

estellezhang

tfeng_no1 发表于 2013-2-27 16:26
没有问题呀！！！！！！！！！！！！！！！！！！1

我在有的地方不报错  有的工作簿就报错 那请问怎么像2003那样设置好几个工具箱呢？ 现在自定义的图标都挤在一起 在加载项add in 里面要怎么分开？ 换行或者换个加载项？ 如果换加载项又要怎么改名字呢 用vba