Sviluppare funzionalita su Microsoft Office con VBA Macro per visualizzare immagine al click del mouse su un bottone

LoginRegistrati
Stai vedendo 9 articoli - dal 1 a 9 (di 9 totali)
  • Autore
    Articoli
  • #28333 Risposta

    Devos93
    Partecipante

      Salve a tutti,

      Come da titolo, la mia intenzione è quella di riuscire a realizzare una serie di bottoni, al cui singolo click mostrino un immagine da me scelta in un esatta cella. Sono oltretutto interessato a far in modo che al click di un altro bottone l'immagine che ve ne esca si sovrapponga alla precedente.

      Es: Clicco su 1 visualizzo l'immagine rossa; Clicco su 2 visualizzo l'immagine blu; Clicco su 3 visualizzo l'immagine verde.

      Lascio in allegato il file su cui sto lavorando e sul quale ho caricato del codice trovato qui sul vostro forum, che dovrebbe eseguire ciò di cui ho bisogno ma non và

      Vi ringrazio in anticipo per l'aiuto.

      Allegati:
      You must be logged in to view attached files.
      #28335 Risposta
      Oscar
      Oscar
      Partecipante
        6 pts

        IL codice lo metti in un modulo collegato al pulsante che vuoi

        ActiveSheet.Pictures.Insert("C:\"indirizzo dell'immagine"\verde.png").Select
        #28336 Risposta

        Devos93
        Partecipante

          Oscar ha scritto:

          IL codice lo metti in un modulo collegato al pulsante che vuoi

          Ho dimenticato di ammettere che sono alle primissime armi con VBA, come posso creare un modulo con quel codice collegato ad un bottone?

          #28338 Risposta
          Oscar
          Oscar
          Partecipante
            6 pts

            Vedi l'esempio , devi cliccare col tasto destro sul pulsante e seleziona (assegna macro)

            Sub Pulsante_uno()
            Range("G4").Select
            ActiveSheet.Pictures.Insert("C:\TEST\verde.png").Select  '<<<Modificare l'indirizzo dell'immagine
            End Sub
            Sub Pulsante_due()
            Range("M4").Select
            ActiveSheet.Pictures.Insert("C:\TEST\rosso.png").Select  '<<<Modificare l'indirizzo dell'immagine
            End Sub
            Sub Pulsante_tre()
            Range("R4").Select
            ActiveSheet.Pictures.Insert("C:\TEST\blu.png").Select  '<<<Modificare l'indirizzo dell'immagine
            End Sub
            Allegati:
            You must be logged in to view attached files.
            #28340 Risposta

            Devos93
            Partecipante

              Ottimo Oscar, sei stato celere, chiaro e gentilissimo 😀 Grazie mille per aver risolto il mio dubbio !

              #28341 Risposta

              Devos93
              Partecipante

                Oscar ha scritto:

                Sub Pulsante_uno()Range("G4").SelectActiveSheet.Pictures.Insert("C:\TEST\verde.png").Select '<<<Modificare l'indirizzo dell'immagineEnd Sub

                Solo un'ultima domanda, come potrei far in modo che l'immagine caricata si autoridimensioni così da stare in uno spazio da me prescelto ?

                E se possibile, gradirei inoltre che es: Dopo aver cliccato il pulsante 1 , cliccando poi il secondo, l'immagine precedente scompaia per dar spazio a quella memorizzata nel pulsante 2

                 

                #28342 Risposta

                Devos93
                Partecipante

                  Ok, grazie a Marco Lauria sono pure riuscito a ridimensionare l'immagine come mi serviva

                  Sub Pulsante_SB07()
                  Range("D4").Select
                  ActiveSheet.Pictures.Insert("C:\TEST\red.jpg").Select
                  With Selection
                  .Height = 275
                  .Width = 275
                  End With
                  End Sub

                  Ora però vorrei riuscire a capire come evitare che al click del secondo bottone l'immagine generata dal primo resti sottoposta. io desiderei che al click di qualsiasi altro bottone, l'immagine precedente scompaia per far spazio alla nuova

                  #28350 Risposta
                  Oscar
                  Oscar
                  Partecipante
                    6 pts

                    Nel file di esempio devi comunque modificare l'indirizzo

                     

                    ActiveSheet.Pictures(1).Delete
                    Allegati:
                    You must be logged in to view attached files.
                    #28360 Risposta

                    Devos93
                    Partecipante

                      Oscar ha scritto:

                      Nel file di esempio devi comunque modificare l'indirizzo

                      Grazie mille Oscar ! Tutto risolto 😀 Gentilissimo !

                    LoginRegistrati
                    Stai vedendo 9 articoli - dal 1 a 9 (di 9 totali)
                    Rispondi a: Macro per visualizzare immagine al click del mouse su un bottone
                    Gli allegati sono permessi solo ad utenti REGISTRATI
                    Le tue informazioni:



                    vecchio frac - 2750 risposte

                    albatros54
                    albatros54 - 1022 risposte

                    patel
                    patel - 1000 risposte

                    Marius44
                    Marius44 - 877 risposte

                    Luca73
                    Luca73 - 734 risposte