Eliminar opción de menu
Que tal valedor, mi problema es el siguiente:
Agregue una nueva opción al menu Archivo de Excel con el commandbar ("File"). Control ... Etc etc, y de nombre le puse Importar Archivo, la onda es que cuando lo agregue, en la opción Temporary le puse false, y esto ocasiono que cada vez que abro Excel aparezca la opción Importar Archivo en el Menu Abrir
Quiero eliminar esa opción, pero no he encontrado como, espero me puedas ayudar y gracias de antemano...
Agregue una nueva opción al menu Archivo de Excel con el commandbar ("File"). Control ... Etc etc, y de nombre le puse Importar Archivo, la onda es que cuando lo agregue, en la opción Temporary le puse false, y esto ocasiono que cada vez que abro Excel aparezca la opción Importar Archivo en el Menu Abrir
Quiero eliminar esa opción, pero no he encontrado como, espero me puedas ayudar y gracias de antemano...
1 respuesta
Respuesta de valedor
1
Hay varias formas, te vas a personalizar las barras de Herramientas y restableces estas, con código seria...
Application.CommandBars("File").Controls(Numero).Delete
En donde "Numero" es el numero que tenga tu menú, si es la primera opción en el menú Archivo sera 1, y así sucesivamente, pero ten cuidado, pues si no es el número correcto, de todas maneras funcionara, solo que eliminara otro menú, claro, esto tendría solución...
No se como agregues tu menú, pero yo lo hago así...
Public Sub PonerMenu()
Dim SubMenu As CommandBarButton
Set SubMenu = Application.CommandBars("File").Controls.Add(msoControlButton, 1, "MiMenu", 1, True)
With SubMenu
.Caption = "&Importar archivo..." 'Le asigna nombre
.OnAction = "ImportarArchivo" 'Le asigna la macro
.Tag = "Mimenu"
End With
Set SubMenu = Nothing
End Sub
y para quitarlo, seria algo así, con esto garantizo quitar el que yo hice...
Public Sub QuitarMenu()
Dim cb As Object
For Each cb In Application.CommandBars("File").Controls
If cb.Caption = "&Importar archivo..." Then
cb.Delete
End If
Next cb
End Sub
Application.CommandBars("File").Controls(Numero).Delete
En donde "Numero" es el numero que tenga tu menú, si es la primera opción en el menú Archivo sera 1, y así sucesivamente, pero ten cuidado, pues si no es el número correcto, de todas maneras funcionara, solo que eliminara otro menú, claro, esto tendría solución...
No se como agregues tu menú, pero yo lo hago así...
Public Sub PonerMenu()
Dim SubMenu As CommandBarButton
Set SubMenu = Application.CommandBars("File").Controls.Add(msoControlButton, 1, "MiMenu", 1, True)
With SubMenu
.Caption = "&Importar archivo..." 'Le asigna nombre
.OnAction = "ImportarArchivo" 'Le asigna la macro
.Tag = "Mimenu"
End With
Set SubMenu = Nothing
End Sub
y para quitarlo, seria algo así, con esto garantizo quitar el que yo hice...
Public Sub QuitarMenu()
Dim cb As Object
For Each cb In Application.CommandBars("File").Controls
If cb.Caption = "&Importar archivo..." Then
cb.Delete
End If
Next cb
End Sub
