FAQ`s Ofimatica

[hugol]

El siguiente procedimiento crea una barra de herramientas en el menu principal

Sub Crear Barra()


'Declaración de variables Dim'
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl

'BORRAR YA EXISTENTE
'Aqui se borra la barra de herramientas en caso que ya exista una con el nombre
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("&Nombre Barra").Delete
On Error GoTo 0
Set cbMainMenuBar = _
Application.CommandBars("Worksheet Menu Bar")

'CREAR NUEVO MENU'
Set cbcCutomMenu = _
cbMainMenuBar.Controls.Add(Type:=msoControlPopup, _
Before:=10)
cbcCutomMenu.Caption = "&Nombre Barra"

'AGREGAR BOTONES DENTRO DEL MENU
'Boton de sub menu
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Sub Menu"
.OnAction = "MacroAsociada"
End With

End Sub

Este procedimiento se puede crear cuando automaticamente se abra el acrhivo y borrar la barra apenas se cierre para que no aparezca en otros archivos mediante el sigueinte metodo:

Sub Auto_Open()
Application.Run ("Macro222")
end sub

'y

Sub Auto_Close()
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("&Reportes e Indicadores").Delete
On Error GoTo 0

End Sub

Cualquier duda por favor avisen