Excel Forum Per condividere esperienze su Microsoft Excel

Menu in una Userform

  • Messaggi
  • OFFLINE
    by sal
    Post: 5.519
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 18/10/2018 17:24
    Ciao a tutti, sto creando dei menu direttamente nelle userform, in modo da rendere più facile la gestione della stessa.

    Faccio uso delle "FaceID" per visualizzare l'icona di fianco al menu.

    ma logicamente non ci sono delle "FaceID" per tutto, sapete se ce un metodo per inserire delle "FaceID" personali.

    un esempio:



    Ciao By Sal [SM=x423051]

    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    tanimon
    Post: 1.198
    Registrato il: 27/06/2011
    Utente Veteran
    excel 2007
    00 18/10/2018 19:52
    ciao Sal,

    non mi sono mai cimentato in quanto richiedi, ma in rete ho trovato il file che allego.

    Spero possa esserti di aiuto

    Ciao
    Frank
    [Modificato da tanimon 18/10/2018 19:54]







    Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
    Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
  • OFFLINE
    alfrimpa
    Post: 3.978
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Master
    Excel 365
    00 18/10/2018 21:14
    Ciao Salvatore ed un caro saluto a Frank.

    Neanch'io mi son mai cimentato ma ti segnalo questo link

    https://fring.developpez.com/vba/excel/faceid/

    dove troverai le immagini e relativi codici di tutti (credo) i FaceId.

    Ce ne sono 4.199 possibile che non trovi quelle giuste per te? [SM=g27828]

    Alfredo
  • OFFLINE
    by sal
    Post: 5.520
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 19/10/2018 09:58
    Menu Userform
    Ciao Frank, si conosco quel file, dalla quale ho preso qualche spunto, ma come vedi non mostra le FaceID.

    Ciao Alfredo, le faceID sono oltre 20000, ho un file a riguardo, ma purtroppo riguardano tutte immagini di Office, cartelle, copia, tabelle formato e resto, e non ho trovato qualche immagine che mi interessa o possa applicare, molte sono Doppioni o vuote.

    Perciò chiedevo se era possibile farne una raccolta personale.

    Ciao By Sal [SM=x423051]

    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    alfrimpa
    Post: 3.979
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Master
    Excel 365
    00 19/10/2018 11:40
    Cioè vorresti creare un FaceID personale un po’ come era l’editor di icone di Excel di una volta e che ora non c’è più?

    Alfredo
  • OFFLINE
    by sal
    Post: 5.522
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 19/10/2018 17:42
    Menu Userform
    Ciao Alfredo, in effetti si, oppure anche senza FaceID, inserire un icona di un immagine di fianco alla voce del Menu.

    pero forse mi hai dato un idea, voglio mettere il percorso di un immagine del mio archivio e vedere se la carica, se è cosi avrei risolto

    Ciao By Sal [SM=x423051]

    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    Zer0kelvin
    Post: 864
    Registrato il: 24/04/2004
    Città: TERAMO
    Età: 63
    Utente Senior
    2010
    00 20/10/2018 14:32
    Ciao a tutti.
    Premetto che ci si deve sempre chiedere: il gioco vale la candela?
    Se volessi fare una cosa del genere, io ricorrerei ad un "Fake", sostituendo il menu con un frame a scomparsa all'interno del quale le voci sono realizzate tramite delle label a cui affiancare delle immagini.
    Si può usare l'evento click della label ed Application.Run per eseguire la procedura richiesta.
    Si potrebbe realizzare una classe a questo scopo, ma richiede un certo impegno, ammesso che sia possibile, dal momento che servirebbe un evento MouseOver per simulare l'evidenziazione delle voci e non sono certo che in una classe questo sia accessibile.

    **EDIT**
    Ho controllato, c'è l'evento MouseMove, quindi si potrebbe fare.
    Poi mi sono ricordato che qualche anno fà avevo sfruttato l'idea per realizzare una falsa barra dei menu che poi visualizzava dei popup.
    QUI: http://zer0kelvin.altervista.org/Files/MENUS2.xlsb
    Si può usare lo stesso trucco per realizzare dei popup.
    [Modificato da Zer0kelvin 20/10/2018 14:46]
    __________________________
    [Excel 2010]
    -Condividere la conoscenza aumenta la ricchezza di tutti.
    -Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
    -Il sonno della ragione genera mostri. (Francisco Goya)
  • OFFLINE
    by sal
    Post: 5.524
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 20/10/2018 15:17
    Menu Userform
    Ciao ZeroK, grazie per il file.

    la mia form il menu funziona con i comandi e tutto, devo solo finire di implementarlo, infatti la mia form funziona con il MouseOver.

    anzi l'unica cosa che ancora non sono riuscito a fare anche se si vede nel menù è l'acceleratore Menù cioè la voce del menù sottolineata dovrebbe partire con "Alt+lettera sottolineata", come parte nei normali menu office, oppure nelle form col Commandbutton.

    ho tutto l'elenco delle FaceID fino a 20.000, ma ad esempio vorrei inserire un immagine di un magazzino esempio tipo questa ridotta ad icona, è solo un esempio, che non esiste nelle faceID qualcosa che possa sembrare un magazzino, ecco la mia necessità.



    Ciao By Sal [SM=x423051]

    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    Zer0kelvin
    Post: 865
    Registrato il: 24/04/2004
    Città: TERAMO
    Età: 63
    Utente Senior
    2010
    00 20/10/2018 15:41
    Per gli accelleratori, se non trovi di meglio, potresti usare uno "sporco trucco"; davvero sporco in realtà, ma "occhio non vede, cuore non duole"🙈.
    Assegni gli accelleratori a dei commandbutton poi in userform_inizialize li nascondi mandandoli fuori dall'area visibile della userform:
    Private Sub UserForm_Initialize()
        Me.CommandButton1.Left = Me.Width + 50
    End Sub
    __________________________
    [Excel 2010]
    -Condividere la conoscenza aumenta la ricchezza di tutti.
    -Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
    -Il sonno della ragione genera mostri. (Francisco Goya)