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

Eric_Cheung · 发表于 2010-7-1 09:54

application.CommandBars(4).RowIndex =6

小fisher · 发表于 2010-7-1 09:56

mybar.Left = CommandBars("Formatting").Left + CommandBars("Formatting").Width
mybar.RowIndex = CommandBars("Formatting").RowIndex
注意这两句次序不能变

[ 本帖最后由小fisher 于 2010-7-1 09:57 编辑 ]

liugegexj · 发表于 2010-7-1 13:16

原帖由 小fisher 于 2010-7-1 09:56 发表
mybar.Left = CommandBars("Formatting").Left + CommandBars("Formatting").Width
mybar.RowIndex = CommandBars("Formatting").RowIndex
注意这两句次序不能变

Application.CommandBars.Add(Name:="A工具栏").Visible = True
Dim mybar As CommandBar
Set mybar = CommandBars("A工具栏")
mybar.Left = CommandBars("Formatting").Left + CommandBars("Formatting").Width
mybar.RowIndex = CommandBars("Formatting").RowIndex

我这样测试了，工具栏还在漂浮中？？？？？？？？

liugegexj · 发表于 2010-7-1 13:37

我知道了，是这样的：
Application.CommandBars.Add(Name:="A工具栏").Visible = True
Dim mybar As CommandBar
Set mybar = CommandBars("A工具栏")
mybar.Position = msoBarTop
mybar.Left = CommandBars("Formatting").Left + CommandBars("Formatting").Width
mybar.RowIndex = CommandBars("Formatting").RowIndex
这样就成功了。
还发现mybar.Left = CommandBars("Formatting").Width
mybar.RowIndex = CommandBars("Formatting").RowIndex
这两句不管先后效果都一样啊，为什么【小fisher】说这两句顺序不能变啊？

dps · 发表于 2010-11-19 20:18

学习了，受益不浅

dps · 发表于 2010-11-19 20:21

改成这样，就没有闪烁感了

Application.ScreenUpdating = False
Application.CommandBars.Add(Name:="A工具栏", Position = msoBarTop).Visible = False
Dim mybar As CommandBar
Set mybar = CommandBars("A工具栏")
mybar.Left = CommandBars("Formatting").Left + CommandBars("Formatting").Width
mybar.RowIndex = CommandBars("Formatting").RowIndex
mybar.Visible = True
Application.ScreenUpdating = True

[ 本帖最后由 dps 于 2010-11-19 21:58 编辑 ]

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

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