Trabajar con el Addin para Office I

             He estado trabajando con la parte de los addin para Office y voy a ir publicando como hacer algunas tareas básicas, en esta primera entrega vamos a ver como agregar un menú a la barra de herramientas. Primero declaramos los objetos que nos van a permitir agregar la opción de menú    
Private menuBar As Office.CommandBar   
Private newMenuBar As Office.CommandBarPopup
   
Private buttonOne As Office.CommandBarButton
   

Vamos a revisar el código que nos va a permitir poner nuestra nueva opción en el menú  
Try           
   'Recuperamos la instancia de la barra activa           
   menuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar
   'Agregamos la nueva opción del menú de herramientos           
   newMenuBar = menuBar.Controls.Add( _
                Office.MsoControlType.msoControlPopup, _ 
                Temporary:=False)            
   'Validamos tener la instancia del objeto
           
   If newMenuBar IsNot Nothing Then
               
      'Nombre de la nueva opción
               
      newMenuBar.Caption = "Clientes"
               
      newMenuBar.Tag = "Opciones para los clientes"
                
     
      'Creamos la instancia del nuevo botón que va a ir dentro
                
      'de la opción que estamos creando
               
      buttonOne = newMenuBar.Controls.Add( _                    
                  Office.MsoControlType.msoControlButton, _
                   
                  Before:=1, Temporary:=True)                

      'Modificamos algunas opciones de nuevo botón
                
      With buttonOne
                   
         'Definimos el estilo del botón
                    
         .Style = Office.MsoButtonStyle.msoButtonIconAndCaption
         'Texto del botón
                    
         .Caption = "Selectiva"
                   
         .FaceId = 65
                   
         .Tag = "c123"
                
      End With
                

      'Utilizamos delegados para establecer el evento al                
      'cual tiene que responder el botón
               
      AddHandler buttonOne.Click, AddressOf ButtonOne_Click                

      'Hacemos que el botón sea visible
               
      newMenuBar.Visible = True           
   End If
       
Catch Ex As Exception
           
      MessageBox.Show(Ex.Message)       
End Try


Hasta la próxima



 

1 comentario:

Anónimo dijo...

Estoy intentando hacer lo que indicas en el post y no he podido es posible que puedas publicar el ejemplo con codigo fuente ;)