关于创建新工具栏 （VBA/ActiveX）

创建新工具栏

本示例在集合中的第一个菜单组中创建一个名为“TestToolbar”的新工具栏。MenuGroups

Sub Ch6_CreateToolbar()
 Dim currMenuGroup As AcadMenuGroup
 Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

 ' Create the new toolbar
 Dim newToolbar As AcadToolbar
 Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
End Sub