vba如何改變工具欄位置

yuangw1234

以下程式是自動加工具欄，可是每次加出來的工具欄都是在屏幕中間，怎麼樣才可以改變

它的位置(就象保存，打印工具欄)

Public Sub osmod()
On Error Resume Next
Dim cumegr As AcadMenuGroup
Set cumegr = ThisDrawing.Application.MenuGroups.Item(0)
Dim too As AcadToolbar
Set too = cumegr.Toolbars.Add("Osmode")
Dim nebutton As AcadToolbarItem
Dim buttonmacro As String
buttonmacro = Chr(3) + Chr(3) + Chr(95) + "sd" + Chr(32)
Set nebutton = too.AddToolbarButton("", "開鎖點", "開嗎", buttonmacro)
End Sub

wyj7485

too .Dock acToolbarDockLeft                      'acToolbarDockLeftTop顶部

yuangw1234

先謝了，我去試試

yuangw1234

還有問題不知大帥是否可以教一下：是否可以指定其位置，如左位置是50，上位置是10，這樣指定會比較好，或用手動拖好其位置後，以後每次打開Autocad後它都是在這個位置

wyj7485

工具条不行