用程序添加的自定义工具栏怎么是漂浮的（附代码）

liugegexj · 发表于 2010-6-30 14:22

Application.CommandBars.Add(Name:="A工具栏").Visible = True
Application.CommandBars("A工具栏").Controls.Add Type:=msoControlButton
Application.CommandBars("A工具栏").Controls.Item(1).Caption = "取数设置"
Application.CommandBars("A工具栏").Controls.Item(1).Style = msoButtonCaption
程序运行后，A工具栏漂浮在编辑区，我想把它放置在格式工具栏行最后的空白的地方，如图，用程序怎么写？

[ 本帖最后由 liugegexj 于 2010-6-30 17:40 编辑 ]

liugegexj · 发表于 2010-6-30 16:20

请高手帮忙哦！在线等，急！急！急！

liugegexj · 发表于 2010-6-30 17:32

自己顶一下，大家一定帮忙哦！

Eric_Cheung · 发表于 2010-6-30 18:29

application.CommandBars(4).Position =msoBarTop

[ 本帖最后由 Eric_Cheung 于 2010-6-30 18:33 编辑 ]

liugegexj · 发表于 2010-6-30 18:40

原帖由 Eric_Cheung 于 2010-6-30 18:29 发表
application.CommandBars(4).Position =msoBarTop

这个我试验了过了，不行，我是希望放置在格式工具栏的右侧，不是格式工具栏的下方

unsamesky · 发表于 2010-6-30 19:06

试试：
Application.CommandBars.Add(Name:="A工具栏",Position:=0).Visible = True
Position:=0，1,2,3,4
可以将position改成0~4这些数字试试，得到的将是不同的结果。

liugegexj · 发表于 2010-6-30 19:12

原帖由 unsamesky 于 2010-6-30 19:06 发表
试试：
Application.CommandBars.Add(Name:="A工具栏",Position:=0).Visible = True
Position:=0，1,2,3,4
可以将position改成0~4这些数字试试，得到的将是不同的结果。

Application.CommandBars("A工具栏").Position =0~6
我都逐个试验过了，不行。各位大侠拜托了。

unsamesky · 发表于 2010-6-30 19:20

无语了。

Application.CommandBars.Add(Name:="A工具栏",Position:=1).Visible = True

Application.CommandBars.Add(Name:="A工具栏").Visible = True ‘这句不要，要上面那句。
Application.CommandBars("A工具栏").Controls.Add Type:=msoControlButton
Application.CommandBars("A工具栏").Controls.Item(1).Caption = "取数设置"
Application.CommandBars("A工具栏").Controls.Item(1).Style = msoButtonCaption

你的代码可以简写为：
dim mybar as commandbar
set mybar = Application.CommandBars.Add(Name:="A工具栏",Position:=1)
   mybar.visible = true

dim mybtn as commandbarbutton
set mybtn = mybar.controls.add(type:=msocontrolbutton)
      mybtn.caption = "取数设置"
      mybtn.style = msobuttoncaption
      mybtn.onAction = "AA"

set mybtn = mybar.controls.add(type:=msocontrolbutton)
      mybtn.caption = "函数向导"
      mybtn.style = msobuttoncaption
      mybtn.onAction = "SS"

liugegexj · 发表于 2010-6-30 20:20

原帖由 unsamesky 于 2010-6-30 19:20 发表
无语了。

Application.CommandBars.Add(Name:="A工具栏",Position:=1).Visible = True

Application.CommandBars.Add(Name:="A工具栏").Visible = True ‘这句不要，要上面那句。
Application.Command ...

请看一楼提问，你这段程序我已经做出来了，就是现在的问题是A工具栏的位置问题。

liugegexj · 发表于 2010-6-30 22:08

自己顶一下，希望有人能帮忙

		自动登录	找回密码
密码			免费注册

[求助] 用程序添加的自定义工具栏怎么是漂浮的（附代码）