Ribbon access

Nunca habia tocado este tema y tiene lo suyo, lo han complicado estos de Microsoft.....

La cuetion es que he encontrado unos ejemplos y mas o menos para hacer algo sencillo veo por donde van los tiros.....

https://645c6226-a-62cb3a1a-s-sites.googlegroups.com/site/jjjt1973/Home/creando-la-cinta-de-opciones-ribbon-en-access-2007/EjemploRibbonJJJT.rar?attachauth=ANoY7cqdw2Fi7DxlvFmCsAGkqRGuiR3mgm_-w0W6hckWZwX4OWy5ePNOEn-1xSjjYxW-ZSBVphZulCjPlyoC8ll2wCyEb5X_fGAKdl5i91Kg9o0trqWYJDbhbQtGxY8zjUDOiv0bgRuowvIvWmyaxQr3fRqkUBR8c8nn3XJL49lpUiHoCcIiMOK_e_zsPJaMrw_8R2LcRXKXbRBvpHG5tHuWsbZhrWvXSNY1ioR9y6NySDOjLDrOHfoZUWPDHKTs8_scCeCzqqFdNaZeQTAbgZm-pa6xfeSrquGOmznRWf50aolAlDAJ2jw%3D&attredirects=0&d=1

Tambien estoy utilizando el programa Ribbon creator, que aunque la version gratuita esta limitada me puede valer para empezar, este programa te permite hacer bastantes cosas sin escribir una sola linea de xml.

Utilizando este programa, pongo unos iconos personalizados, en el xml de guarda la ruta real, si voy a otro pc estos iconos no funcionan.

Como podria hacer referencia a una carpeta donde este la base de datos, parecido a CurrentProyect.path de vba. No lo consigo

tag="RibbonName:=IDBERibbonCreator2016;inMenu:=;CustomTagValue1:=;CustomTagValue2:=;CustomTagValue3:=;CustomPicture:=Socios.jpg;CustomPicturePath:=Z:\MisDocumentos\Drive\ACCESS\UNAI BD\BD16 Biblioteca\" onAction="OnActionButton" getVisible="GetVisible" getEnabled="GetEnabled" />
          <button id="btn1" size="large" label="Libros" getImage="GetImages" tag="RibbonName:=IDBERibbonCreator2016;inMenu:=;CustomTagValue1:=;CustomTagValue2:=;CustomTagValue3:=;CustomPicture:=libros.jpg;CustomPicturePath:=CurrentProject.Path &"\"" onAction="OnActionButton" getVisible="GetVisible" getEnabled="GetEnabled" />

He probado de multiples formas y no lo consigo......

Saludos

Efectivamente, existe la funcion. Pero no me queda muy claro como indicarle la ruta CurrentProyect.Path

Sub GetImages(control As IRibbonControl, ByRef Image)
    ' Callbackname in XML File "getImages"
   
    ' Loads an image with transparency to the ribbon
    ' Modul basGDIPlus is required
    ' Laed ein Bild mit Transparenz in das Ribbon
    ' Modul basGDIPlus wird dafuer benoetigt
   
    Dim strPicturePath  As String
    Dim strPicture      As String
   
    strPicture = getTheValue(control.Tag, "CustomPicture")
   
    If bolUsePicturesFromTable = True Then
        Set Image = getIconFromTable(strPicture)
    Else
        If bolUseDynamicPicturePath = True Then
            strPicturePath = getAppPath & strAppPicturePath & "\"
        Else
            strPicturePath = getTheValue(control.Tag, "CustomPicturePath")
        End If
        Set Image = LoadPictureGDIP(strPicturePath & strPicture)
    End If

End Sub

Hola Rokoko

Solo te falto decir que podemos cerrar, mientras te dire:

Tenemos dos atributos en el XML del Ribbon para tratar las imágenes uno es Estático y el otro Dinámico, el estático va en el elemento raíz del XML: customUI  que es loadImage que en la devolución de llamada quedaría:

Callbacks del loadImage:

Sub MyloadImage(ImageName As String, ByRef Image)     Dim stPath As String     stPath = CurrentProject.Path & "\imagenes\" & ImageName Set Image = LoadPicture(stPath) End Sub

Aquí en el atributo del control usarías Image

Y en el dinamico es en el mismo atributo del control con getImage y la devolución quedaría mas o menos así:

Callbacks del GetImages:

Public Sub onGetImages(control As IRibbonControl, ByRef Image)     Select Case control.Id Case "buttonPedidos"  Set Image = LoadPicture(CurrentProject.Path & "\imagenes\actividades.jpg")     End Select     End Sub