¿como hacer un botón personalizado en en una barra de herramientas en Excel?

Por ejemplo, para crear una opción al final del menú Archivo, el código podría ser:


Sub CrearMenu()
Dim ToolsMenu As CommandBarPopup
Dim NewMenuItem As CommandBarButton

Set ToolsMenu = CommandBars(1).FindControl(ID:0002) 'Localizar el menú Archivo

Set NewMenuItem = ToolsMenu.Controls.Add(Type:=msoControlButton) 'Añadir opción
With NewMenuItem
.Caption = "Título"
.OnAction = "NombreDeLaMacroAEjecutar"
.BeginGroup = True 'La opción iniciará un grupo en el menú
End With

Set ToolsMenu = Nothing
Set NewMenuItem = Nothing
End Sub


Ten en cuenta que tendrás que encargarte también de eliminar el elemento creado. El código podría ser:

Sub BorrarMenu()
On Error GoTo CapturaErrores

Do
CommandBars(1).FindControl(ID:0002).Controls("Título").Delete
Loop

CapturaErrores:
Exit Sub

End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


escribió en el mensaje news:8e2301c4858e$8bf33a80$
Necesito saber como hacer un botón personalizado en en
una barra de herramientas pero a través de Código, es
decir, yo ya sé como hacerlo en modo de diseño, pero
necesito saber como puedo hacerlo a través de Visual
Basic:

1º creación del botón
2º Poner título (no me hace falta ponerle ninguna imagen,
con el texto me vale)
3º Asignarle una macro (p.e. la macro se llama Listar () )

Espero prontas noticias

Javiland