¿como eliminar o añadir un icono en la barra de herramientas principall?

Hola Marcianito ET!! :=) disculpa la broma..
Pues prueba con lo siguiente y modifica los botones a tu preferencia.
[Alt+F11 Menu\Insertar Modulo copias lo que esta debajo y listo]
Luego de copiado sales y yá en la hoja [Alt+F8 y ejecutas bien sea Agregar o
Eliminar]
'==>Desde aqui Agrega:
Sub Agrega_Boton()
' Agrega_Boton Macro

Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:#, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:64, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:738, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:, Before:!
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:", Before:"
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:D1, Before:#
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:)6, Before:$
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:)7, Before:%
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:3, Before:&
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:’8, Before:'
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:D3, Before:(
End Sub

'==>Desde aqui elimina:
Sub Elimina_Boton()
'
' Elimina_Boton Macro
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
End Sub

Cualquier duda comentas,
Saludos
Lisandro

"ET" escribió:

Quisiera hacer una macro para poder eliminar o añadir un icono en la barra
de herramientas principal.


Gracias