modifica icone di un comando di una barra multifunzione in access 2019

Question

Voglio personalizzare la barra multifunzione inserendo un nuovo comando.

Come posso inserire un'icona diverse da quella presente tra i simboli predefiniti?

Grazie

Answer 1

Ciao,

ti premetto che tento di aiutarti anche se non ho mai usato immagini diverse dai default di Access.

Quello che ho trovato e ti ho postato l'ho preso in rete. Trattasi di codice VBA per personalizzare l'immagine di un controllo sulla ribbon ma non saprei dirti di più. Aspettiamo risposte da altri volontari della community.

Ciao Mimmo

Answer 2

Mimmo ti ringrazio per i tuoi consigli.

Vorrei però essere più chiaro attraverso l'uso di una immagine che possa meglio rappresentare il mio problema e comprendere se ciò per cui mi stai dando i tuoi consigli, sia applicabile a tale problematica .

Nell'immagine si nota l'ultima scheda, da me creata, chiamata "Maschere" contenente un gruppo che ho chiamato "Anagrafiche" e due comandi "Apri_Maschere" e "Access". Quando voglio rinominare il comando (nell'esempio è "Access") si apre la finestra che mi permette sia di rinominare il comando che scegliere un simbolo da associare.

Ora... vorrei sapere:

1. qual è la cartella che contiene tali simboli di default;
2. se è possibile in access indicare la cartella da cui prendere tali simboli (così da poter sostituire quella di default con un'altra)
3. se le istruzioni che mi hai indicato sono applicabili per questo contesto e dove inserirle (… può essere in una macro autoexec?)

Ti ringrazio ancora.

Giacomo

Answer 3

Ciao,

ho trovato questo esempio dove penso tu possa definire la cartella contenente le immagini

<button id = "bt1" label = "Feed"

getImage="fncGetImage"

size="large"

onAction = "fncOnAction" />

Public Sub fncGetImage(control As IRibbonControl, ByRef Image)
On Error GoTo fError
Dim strPath As String
Dim strImageName As String
strPath = CurrentProject.Path & "\images\"
If InStr(strImageName, ".png") > 0 Or InStr(strImageName, ".ico") > 0 Then
  Set Image = LoadImage(strPath & strImageName)
Else
  Set Image = LoadPicture(strPath & strImageName)
End If

Mimmo

Answer 4

Non c'è possibilità all'interno di access di far selezionare una cartella alternativa a quella contenente le icone di default?

Answer 5

Ciao,

guarda LoadImage

Ciao Mimmo