Immagine attraverso pulsante

[statam]

Salve a tutti, è possibile con excel inserire un pulsante che una volta cliccato si trasformi (o inserisca in una determinata cella) in un'immagine standard già decisa?

[alfrimpa]

Ciao Statam

Potresti inserire un controllo Immagine (ActiveX) dimensionandolo in modo da adattarlo perfettamente alla cella.

Poi con il metodo LoadPicture del controllo potrai caricare al suo interno il file immagine che desideri.

Ad esempio se il controllo si chiama Image1 questa istruzione da inserire nell'evento Clic del pulsante

Image1.Picture = LoadPicture("C:\prova\file.jpg")

carica il file immagine che si trova in c:\prova nel controllo Immagine

Giocaci un po'

[statam]

Ciao Statam

Potresti inserire un controllo Immagine (ActiveX) dimensionandolo in modo da adattarlo perfettamente alla cella.

Poi con il metodo LoadPicture del controllo potrai caricare al suo interno il file immagine che desideri.

Ad esempio se il controllo si chiama Image1 questa istruzione da inserire nell'evento Clic del pulsante

Image1.Picture = LoadPicture("C:\prova\file.jpg")

carica il file immagine che si trova in c:\prova nel controllo Immagine

Giocaci un po'

Ciao Alfre,

non mi sta ridando, allora io vado su sviluppo>inserisci>immagine (controllo ActiveX) > faccio il quadratino dell'immagine > ci clicco due volte e nel codice scrivo > Image1.Picture = LoadPicture("percorso dell'immagine da caricare")

Fatto questo mi carica l'immagine e fin qui ok, ma io vorrei avere due bottoni e cliccando su uno carica una immagine prestabilita su una cella prestabilita, cliccando sull'altro carica sempre sulla stessa cella prestabilita un'altra immagine prestabilita.

Come collego le cose?

[alfrimpa]

Ma i due bottoni sono CommandButton?

In entrambi metti lo stesso codice trannne per quello che riguarda il nome del file.

Sempre che abbia capito bene.

Alfredo

[statam]

Si, mi spiago meglio:

Io ho due bottoni: BOTTONE A ; BOTTONE B

Poi ho una cella A1 vuota!

Cliccando sul BOTTONE A sulla cella A1 appare un immagine precaricata. Cliccando invece sul BOTTONE B sulla cella A1 compare un'altra immagine.

[alfrimpa]

Ciao statam

Ti allego un file; non so se è quello che vuoi

http://www.filedropper.com/statam_1

Nel seguente codice associato ai pulsanti devi modificare percorso e nome file

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Image1.Picture = LoadPicture("c:\prova\1.jpg") '<===== Modifica con il tuo percorso e file
End Sub


Codice: Seleziona tutto

Private Sub CommandButton2_Click()
Image1.Picture = LoadPicture("c:\prova\2.jpg") '<===== Modifica con il tuo percorso e file
End Sub

[statam]

Ciao statam

Ti allego un file; non so se è quello che vuoi

http://www.filedropper.com/statam_1

Nel seguente codice associato ai pulsanti devi modificare percorso e nome file

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Image1.Picture = LoadPicture("c:\prova\1.jpg") '<===== Modifica con il tuo percorso e file
End Sub


Codice: Seleziona tutto

Private Sub CommandButton2_Click()
Image1.Picture = LoadPicture("c:\prova\2.jpg") '<===== Modifica con il tuo percorso e file
End Sub

Grazie Alfredo! E' esattamente quello che stavo cercando!

[alfrimpa]

A me sembrava troppo facile e temevo ci fosse qualcosa dietro

[statam]

L'unica cosa: secondo te è possibile rendere il percorso dell'immagine dinamico?

Cioè mettere dentro una cartella il file excel e le immagini, in modo tale che spostando la cartella anche in un altro pc il percorso delll'immagine nel file excel si aggiorna in automatico

[alfrimpa]

Ciao Statam

Penso che l'unico modo possibile per fare tutto in automatico è che sul secondo pc ci sia già un percorso identico al primo.

In alternativa si potrebbe pensare ad una InputBox dove digitare il nuovo percorso e quindi farlo prendere alle macro già presenti.

Non so se mi sono spiegato.

[statam]

Ciao Statam

Penso che l'unico modo possibile per fare tutto in automatico è che sul secondo pc ci sia già un percorso identico al primo.

In alternativa si potrebbe pensare ad una InputBox dove digitare il nuovo percorso e quindi farlo prendere alle macro già presenti.

Non so se mi sono spiegato.

Si Alfredo ti sei spiegato benissimo, peccato che excel non abbia un modo per inserire un'immagine nel suo database o fare aggiornare il percorso in automatico come fa per i collegamenti

[Anthony47]

Invece di avere "sul secondo pc [...] un percorso identico al primo" sarebbe sufficiente avere sul secondo PC un subdirectory (es \PROVA) nella stessa directory in cui si trova il file principale; poi invece di
LoadPicture("c:\prova\2.jpg") userai

Codice: Seleziona tutto

LoadPicture(ThisWorkbook.Path & "\PROVA\2.jpg")

Ma se parli di sole 2 immagini (o comunque di "poche" immagini) potresti pensare di lavorare con immagini caricate sul foglio, da visualizzare all'occorrenza.

Ciao

[statam]

Invece di avere "sul secondo pc [...] un percorso identico al primo" sarebbe sufficiente avere sul secondo PC un subdirectory (es \PROVA) nella stessa directory in cui si trova il file principale; poi invece di
LoadPicture("c:\prova\2.jpg") userai

Codice: Seleziona tutto

LoadPicture(ThisWorkbook.Path & "\PROVA\2.jpg")

Ma se parli di sole 2 immagini (o comunque di "poche" immagini) potresti pensare di lavorare con immagini caricate sul foglio, da visualizzare all'occorrenza.

Ciao

Il fatto è che pur tenendo il file e le immagini nella stessa cartella, poi spostando la stessa cartella su un'altro pc non è detto che venga messa sempre sul desktop o sullo stesso percorso standard e questo sballerebbe tutto.

Per "lavorare con immagini caricate sul foglio, da visualizzare all'occorrenza" cosa intendi?

[Anthony47]

Basterebbe tu che distribuisca una cartella che contiene il programma Excel e una sottocartella con le immagini e le istruzioni dicessero che vanno tenuti insieme.

Per immagini caricate sul foglio intendo immagini che siano state inserite nel foglio tramite Inserisci /Immagine.

Ciao