Macro per visualizzare immagine al click del mouse su un bottone

[Devos93Partecipante Devos93]

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.

[OscarPartecipante Oscar Karma: 32 pts]

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

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

[Devos93Partecipante Devos93]

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?

[OscarPartecipante Oscar Karma: 32 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.

[Devos93Partecipante Devos93]

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

[Devos93Partecipante Devos93]

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

 

[Devos93Partecipante Devos93]

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

[OscarPartecipante Oscar Karma: 32 pts]

Nel file di esempio devi comunque modificare l'indirizzo

 

ActiveSheet.Pictures(1).Delete

Allegati:

You must be logged in to view attached files.

[Devos93Partecipante Devos93]

Oscar ha scritto:

Nel file di esempio devi comunque modificare l'indirizzo

Grazie mille Oscar ! Tutto risolto 😀 Gentilissimo !

[Autore]

Articoli