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í. 

<group id="Group7" label="Guarda Pdf"  >

   <editBox id= "miTxt" label="Ingresar texto" screentip= "Corresponde al nombre con el que se guardará la hoja activa en PDF." onChange ="Boton17"/>

</group>

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

A continuación la subrutina que puede estar ubicada en otro módulo:

        ^{Sub conPDF(archi)}

                 ^{ruta = ThisWorkbook.Path}

                ^{ActiveSheet.Copy}

                ^{With ActiveWorkbook}

                    ^{.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & "\" & archi & ".pdf"   ', _}

                ^{End With}

^{End Sub}

Si en lugar de un PDF, se quisiera guardar la hoja activa como hoja de Excel, en lugar de 'exportar' haríamos un 'guardar como' con la siguiente instrucción (gracias al aporte del usuario Francisto Torres ;)

Sub conXlsx(nbre)      'ajustar el nombre de la macro en el botón 7.

    ruta = ThisWorkbook.Path

    ActiveSheet.Copy

    With ActiveWorkbook

        .SaveAs Filename:=ruta & "\" & nbre & ".xlsx", FileFormat:=xlOpenXMLWorkbook

        .Close savechanges:=False

    End With

End Sub

Acceso al VIDEO N° 52 desde aquí.