Excel - ejecutar *.xla con boton de barra de comandos

   
Vista:
Imágen de perfil de guihe

ejecutar *.xla con boton de barra de comandos

Publicado por guihe (35 intervenciones) el 03/06/2009 17:51:53
Hola a todos,
Tengo una macro que funciona y la he convertido en aplicacion (xla). El caso es que para que quedase 'chulo' del todo quería que tuviese una barra de herramientas propia y al clickear el boton se ejecutase la aplicacion.
Buscando en los foros he encotrado como hacer la barra, el boton, el dibujo.... pero no entiendo muy bien la propiedad OnAction, mirando la ayuda de VB viene como ejecutar macros, pero no me entero de como 'llamar' a mi aplicacion xla.
Os pongo el código que he escrito a ver que se os ocurre.
Mil gracias de antemano.
guihe

CODIGO:
Sub BARRA()
Dim BARRA As CommandBar
Dim BOTON As CommandBarButton

Set BARRA = CommandBars.Add(Name:="PINEA2", _
Position:=msoBarTop, temporary:=True)
Set BOTON = BARRA.Controls.Add(Type:=msoControlButton)
BOTON.Picture = LoadPicture("Z:\_Guillepinea.bmp")
BARRA.Visible = True
BOTON.OnAction = "APLICACION.xla" 'AQUI ES DONDE ESTOY ATASCADO ;)
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder