viernes, 7 de enero de 2022

52 - Uso de cuadros o controles dentro de una RIBBON

En las entradas de Marzo 2018 (videos 4 y 5) del canal, vimos cómo diseñar y programar una cinta o Ribbon personalizada. 

Ya sea con iconos de Office o propios, con menú de Excel o solo la barra, con botones 'privados' o no ..... y así diferentes modelos de cinta.

Ahora veremos que también podemos agregar controles del tipo TextBox o Combobox en alguna opción de la cinta.

Para los que requieran de una versión actualizada del complemento, según las últimas versiones de Office, deberán descargar el OfficeRibbonXEditor.

Tomando el libro de ejemplo (ya con los botones diseñados en videos anteriores) vamos a colocar a continuación del último grupo (N° 6) otro nuevo para incluir un TextBox que nos permita ingresar el nombre con el que se deberá guardar el PDF de la hoja activa. 

Nota: En el grupo 'Gestión de guardado' ya teníamos un botón que realizaba esa tarea, donde se solicitaba mediante un InputBox el nombre con el que debiera ser guardado el PDF. Ahora vemos que podemos omitir ese botón y solicitar el dato desde el nuevo control.

El código para el nuevo grupo quedaría entonces así. 

El control utilizado para el texto se llama 'editBox' y el argumento que llama a la macro es onChange a diferencia de los otros botones en los que se utiliza onAction.

En el libro, entre las macros de llamada a los controles de la Ribbon, escribiremos el código. 
Recordar de llamar a la subrutina con el mismo nombre que colocamos en el argumento onChange. Y agregar el argumento que será el texto que ingresamos en el control. El nombre no necesita ser el mismo que el utilizado en el código de la Ribbon.

Sub Boton17(control As IRibbonControl, nbreArchi)
        If nbreArchi <> "" Then Call conPdf(nbreArchi)
End Sub

Ver video N° 52 desde aquí.

Descargar libro con agregado del control desde aquí