13版excel表如何将工具栏固
我做了下面的尝试：
Sub a()
Dim myPosition, Pos As Long
On Error Resume Next
'添加自定义工具栏
Application。 CommandBars("standard")。Reset
'指定自定义工具栏的位置
myPosition = msoBarTop '指定工具栏的顶部坐标
Application。 CommandBars("standard")。Visible = True
Application。CommandBars("常用工具")。Delete
Application。 CommandBars。A...全部
我做了下面的尝试：
Sub a()
Dim myPosition, Pos As Long
On Error Resume Next
'添加自定义工具栏
Application。
CommandBars("standard")。Reset
'指定自定义工具栏的位置
myPosition = msoBarTop '指定工具栏的顶部坐标
Application。
CommandBars("standard")。Visible = True
Application。CommandBars("常用工具")。Delete
Application。
CommandBars。Add(Name:="常用工具", Position:=myPosition)。Visible = True
Pos = Application。CommandBars("standard")。
Top
Top1 = Application。CommandBars("常用工具")。Top
Application。CommandBars("常用工具")。Top = Pos
Top2 = Application。
CommandBars("常用工具")。Top
'这时候 Top1 = Top2 并且不等于Pos。
'也就是说，给Application。CommandBars("常用工具")。
Top赋值是无效的。
Application。CommandBars("常用工具")。Left = Application。CommandBars("standard")。Width + 5
End Sub
给“Application。
CommandBars("常用工具")。Left”赋值就没问题，
但是给“Application。CommandBars("常用工具")。Top”赋值就不行，
能懂吗。收起
