yuangw1234 发表于 2006-8-14 08:21:00

vba如何改變工具欄位置

<P>以下程式是自動加工具欄，可是每次加出來的工具欄都是在屏幕中間，怎麼樣才可以改變</P>
<P>它的位置(就象保存，打印工具欄)</P>
<P>Public Sub osmod()<BR>On Error Resume Next<BR>Dim cumegr As AcadMenuGroup<BR>Set cumegr = ThisDrawing.Application.MenuGroups.Item(0)<BR>Dim too As AcadToolbar<BR>Set too = cumegr.Toolbars.Add("Osmode")<BR>Dim nebutton As AcadToolbarItem<BR>Dim buttonmacro As String<BR>buttonmacro = Chr(3) + Chr(3) + Chr(95) + "sd" + Chr(32)<BR>Set nebutton = too.AddToolbarButton("", "開鎖點", "開嗎", buttonmacro)<BR>End Sub<BR><BR><BR></P>

wyj7485 发表于 2006-8-14 09:23:00

too .Dock acToolbarDockLeft&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'acToolbarDockLeftTop顶部 <BR>

yuangw1234 发表于 2006-8-14 11:57:00

先謝了，我去試試

yuangw1234 发表于 2006-8-14 12:24:00

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

wyj7485 发表于 2006-8-14 14:05:00

工具条不行
页: [1]
查看完整版本: vba如何改變工具欄位置