Agregar boton personalizado en la barra de herramientas

Hola Cesar,
Las siguientes instrucciones agregan un boton
personalizado a la barra de herramientas del menu de
Excel que se llama "Worksheet Menu Bar" (y cada barra de
herramientas tiene un nombre diferente).

With Application.CommandBars("Worksheet Menu Bar")
With .Controls.Add(Type:=msoControlButton,
temporary:=True)
.Caption = "Aca va el texto que aparce al posicionar
el mouse"
.Tag = "Esta linea es opcional"
.FaceId = 141 ' Este numero identifica el icono del
boton
.OnAction = "MiMacro" ' La macro asociada al control
End With
' Aca pudedes agregar mas botones
End With

Nota: El parametro temporary (en el ejemplo esta puesto
en true) indica que el boton tendra una vida efimera, ya
que se borrara automaticamente al cerrar Excel.

Saludos,
Henry

Saludos.

Como puedo agregar un boton personalizado en la barra de

herramientas por

medio de una macro?...

Gracias


.

ok. muchas gracias

"Henry Sanchez" escribió en el mensaje
news:1abf601c44efd$50332cc0$

Hola Cesar,
Las siguientes instrucciones agregan un boton
personalizado a la barra de herramientas del menu de
Excel que se llama "Worksheet Menu Bar" (y cada barra de
herramientas tiene un nombre diferente).

With Application.CommandBars("Worksheet Menu Bar")
With .Controls.Add(Type:=msoControlButton,
temporary:=True)
.Caption = "Aca va el texto que aparce al posicionar
el mouse"
.Tag = "Esta linea es opcional"
.FaceId = 141 ' Este numero identifica el icono del
boton
.OnAction = "MiMacro" ' La macro asociada al control
End With
' Aca pudedes agregar mas botones
End With

Nota: El parametro temporary (en el ejemplo esta puesto
en true) indica que el boton tendra una vida efimera, ya
que se borrara automaticamente al cerrar Excel.

Saludos,
Henry

>Saludos.
>
>Como puedo agregar un boton personalizado en la barra de
herramientas por
>medio de una macro?...
>
>Gracias
>
>
>.
>