Archivos XLA
Hola amigo, como estás. La cuestión es la siguiente:
En un archivo XLA puedo realizar funciones para que otras personas las tengan disponibles instalándolas como complementes, hasta ahí todo bien. La pregunta es ¿cómo puedo hacer que en este mismo tipo de archivos queden disponibles las macros?, se que se pueden agregar opciones a un menú, pero la verdad no tengo ni idea como se hace, he buscado en muchos sitios y no he encontrado la respuesta.
Gracias por disponer de tu tiempo para resolver estas dudas.
Buen día.
En un archivo XLA puedo realizar funciones para que otras personas las tengan disponibles instalándolas como complementes, hasta ahí todo bien. La pregunta es ¿cómo puedo hacer que en este mismo tipo de archivos queden disponibles las macros?, se que se pueden agregar opciones a un menú, pero la verdad no tengo ni idea como se hace, he buscado en muchos sitios y no he encontrado la respuesta.
Gracias por disponer de tu tiempo para resolver estas dudas.
Buen día.
1 Respuesta
Respuesta de tavopz
1
No entiendo bien tu pregunta, ¿tu duda es sobre como incluir en un archivo xla tus macros personales o en cómo crear un menú para usarlas?
Gracias por la respuesta. La cuestión es, deseo hacer una macro y agregarla a un menú a través de un archivo XLA. Ya he hecho funciones y cuando se instala el archivo como complemento las funciones quedan disponibles en la categoría de definidas por el usuario. He tratado de hacer algo similar con los sub, pero no lo he conseguido.
Agradezco tu colaboración. Hasta pronto.
Agradezco tu colaboración. Hasta pronto.
Te adjunto una macro que coloca un menú personalizado, revísalo para que comprendas como se insertan las opciones y subopciones del menú.
Cualquier duda adicional no dudes en contactarme.
Saludos, Tavopz
=============
Sub adicionarMenu()
Dim cBar As CommandBarControl
Dim cControl As CommandBarButton
Dim CPopup As CommandBarPopup
Dim I As Integer
'-----------------------------------------------------
'Se valida si el menu existe para no volverlo a colocar
For I = 1 To CommandBars(1).Controls.Count
If LCase$(CommandBars(1).Controls(I).Caption) = "&Personal" Then
Exit For
End If
Next I
pos = CommandBars("Worksheet Menu Bar").Controls.Count
If CommandBars("Worksheet Menu Bar").Controls(pos).Caption = "&Personal" Then
Exit Sub
End If
'---------------------------
'Opcion general del menu
Set cBar = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, before:=pos + 1)
cBar.Caption = "&Personal"
'-----------------------------
'Menú Opción 1
Set CPopup = cBar.Controls.Add(Type:=msoControlPopup, before:=1)
CPopup.Caption = "Opcion 1"
'-----------------------------
'Submenu Opcion 1A
Set cControl = CPopup.Controls.Add(Type:=msoControlButton, before:=1)
cControl.Caption = "Opcion 1A"
cControl.Enabled = True
'-----------------------------
'Submenu Opcion 1B
Set cControl = CPopup.Controls.Add(Type:=msoControlButton, before:=2)
cControl.Caption = "Opcion 1B"
cControl.OnAction = "macroX"
cControl.Enabled = True
'-----------------------------
'Registrar Opcion 2
Set cControl = cBar.Controls.Add(Type:=msoControlButton, before:=2)
cControl.Caption = "Opcion 2"
cControl.OnAction = "macroXX"
cControl.Enabled = True
End Sub
================
Cualquier duda adicional no dudes en contactarme.
Saludos, Tavopz
=============
Sub adicionarMenu()
Dim cBar As CommandBarControl
Dim cControl As CommandBarButton
Dim CPopup As CommandBarPopup
Dim I As Integer
'-----------------------------------------------------
'Se valida si el menu existe para no volverlo a colocar
For I = 1 To CommandBars(1).Controls.Count
If LCase$(CommandBars(1).Controls(I).Caption) = "&Personal" Then
Exit For
End If
Next I
pos = CommandBars("Worksheet Menu Bar").Controls.Count
If CommandBars("Worksheet Menu Bar").Controls(pos).Caption = "&Personal" Then
Exit Sub
End If
'---------------------------
'Opcion general del menu
Set cBar = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, before:=pos + 1)
cBar.Caption = "&Personal"
'-----------------------------
'Menú Opción 1
Set CPopup = cBar.Controls.Add(Type:=msoControlPopup, before:=1)
CPopup.Caption = "Opcion 1"
'-----------------------------
'Submenu Opcion 1A
Set cControl = CPopup.Controls.Add(Type:=msoControlButton, before:=1)
cControl.Caption = "Opcion 1A"
cControl.Enabled = True
'-----------------------------
'Submenu Opcion 1B
Set cControl = CPopup.Controls.Add(Type:=msoControlButton, before:=2)
cControl.Caption = "Opcion 1B"
cControl.OnAction = "macroX"
cControl.Enabled = True
'-----------------------------
'Registrar Opcion 2
Set cControl = cBar.Controls.Add(Type:=msoControlButton, before:=2)
cControl.Caption = "Opcion 2"
cControl.OnAction = "macroXX"
cControl.Enabled = True
End Sub
================
Gracias, voy a revisar el código y te cuento...
Ok.
