Para crear una barra de herramientas nueva, agregue un nuevo objeto Toolbar a la colección Toolbars con el método Add.
El método Add requiere como entrada el nombre de la barra de herramientas que se desea añadir. El nombre es una cadena de caracteres alfanuméricos sin más signos de puntuación que un guión (–) o un subrayado (_). El nombre es la manera más fácil de identificar la barra de herramientas en la colección.
Los nombres de barras de herramientas se pueden cambiar después de su creación. Para cambiar el nombre de una barra de herramientas existente, utilice la propiedad Name de dicha barra de herramientas.
Creación de una barra de herramientas nueva
En este ejemplo se crea una barra de herramientas nueva denominada “TestToolbar” en el primer grupo de menús de la colección 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