Immagine condizionata da risultato cella

Hai un problema con Excel?

Nuova discussione

Immagine condizionata da risultato cella
di Pino (utente non iscritto) data: 05/05/2015 12:57:30
Salve a tutti. Chiedo se c'è qualcuno che mi può aiutare, per far cambiare una immagine su una cella al risultato numerico di un'altra cella, esempio: se nella cella A1 il risultato di una formula è 1, nella cella B1 ci va l'immagine in JPG nr.1 e nella cella B2, l'immagine JPG nr. 2; se il risultato della cella A1 è 2 nelle celle B1 e B2 ci appaiono altre due immagini diverse; mentre a risultato diverso dai primi due non appare nulla. Ho trovato qualche risposta in rete che andrebbe a "fagiolo", ma spiegata con termini talmente tecnici che non sono riuscito a fare nulla; infatti mi sono reso conto di essere, non un principiante di Excel, ma ancora meno. Grazie a tutti.
Immagine condizionata da risultato cella
di Pino (utente non iscritto) data: 05/05/2015 13:00:52
Salve a tutti. Chiedo se c'è qualcuno che mi può aiutare, per far cambiare una immagine su una cella al risultato numerico di un'altra cella, esempio: se nella cella A1 il risultato di una formula è 1, nella cella B1 ci va l'immagine in JPG nr.1 e nella cella B2, l'immagine JPG nr. 2; se il risultato della cella A1 è 2 nelle celle B1 e B2 ci appaiono altre due immagini diverse; mentre a risultato diverso dai primi due non appare nulla. Ho trovato qualche risposta in rete che andrebbe a "fagiolo", ma spiegata con termini talmente tecnici che non sono riuscito a fare nulla; infatti mi sono reso conto di essere, non un principiante di Excel, ma ancora meno. Grazie a tutti.
di alfrimpa data: 05/05/2015 20:23:26
Ciao Pino

Allega un file di esempio ed i file jpg e vediamo cosa riusciamo a fare

Alfredo
Immagine condizionata da risultato cella
di Pino (utente non iscritto) data: 07/05/2015 11:55:28
Ciao Alfredo, scusami se ti ho risposto solo ora, ma ero via. Ti ho inviato il File richiesto, spero vada bene, come ho detto non sono molto esperto.
Grazie.
Pino
di alfrimpa data: 08/05/2015 12:09:21
Ciao Pino

Puoi allegare materialmente i file jpg che hai inserito sul foglio?

Io non riesco a salvare quelle immagini come file.

Alfredo
Immagine condizionata da risultato cella
di Pino (utente non iscritto) data: 08/05/2015 18:34:16
Ciao Alfredo, spero di averti inoltrato i 4 Files correttamente.
Pino

di alfrimpa data: 09/05/2015 16:45:38
Ciao Pino

Avevo lavorato sul tuo file ma salvandolo in formato Excel 2003 ma dava una dimensione abnorme (circa 14MB ??!!) per cui non posso allegarlo sul forum. Salvandolo invece in 2007 la dimensione è di soli 24K per cui l'ho allegato ("Pino2007") sperando che tu lo riesca ad aprire in qualche modo.

Comunque ti spiego in poche parole come è stato realizzato.

1) Sul foglio1 ho inserito 2 Controlli Immagine (Image1 e Image2); per fare questo devi andare sul menù Sviluppo --> Inserisci e dai controlli ActiveX seleziona Immagine e disegna la casella sul foglio (ripeti l'operazione per la seconda casella Immagine).

2) Nell'Editor di VBA inserisci il sottostante codice nel modulo del Foglio1 (non uno standard)

Ad ogni modifica del range G6:H11 il codice valuta il risultato delle due funzioni SOMMA ed inserisce le giuste immagini nelle due caselle Immagine.

Ovviamente il file immagine (1.jpg, 2.jpg) devono stare in una directory e tu devi modificare la macro nei punti indicati con il tuo percorso.

Spero di essere stato utile e, soprattutto, chiaro.

Alfredo

Private Sub Worksheet_Change(ByVal Target As Range)
Dim val As Integer
Dim val1
val = Range("g12").Value
If Not Intersect(Target, Range("g6:h11")) Is Nothing Then
    Select Case val
        Case Is > Range("h12")
            Worksheets("Foglio1").Image1.Picture = LoadPicture("c:excel1.jpg") 'Da modificare con il tuo percorso
            Worksheets("Foglio1").Image2.Picture = LoadPicture("c:excel2.jpg") 'Da modificare con il tuo percorso
        Case Is < Range("h12")
            Worksheets("Foglio1").Image1.Picture = LoadPicture("c:excel3.jpg") 'Da modificare con il tuo percorso
            Worksheets("Foglio1").Image2.Picture = LoadPicture("c:excel4.jpg") 'Da modificare con il tuo percorso
        Case Is = Range("h12")
            Worksheets("Foglio1").Image1.Picture = LoadPicture("")
            Worksheets("Foglio1").Image2.Picture = LoadPicture("")
    End Select
End If
End Sub

di alfrimpa data: 09/05/2015 16:48:53
Aggiungo che per poter far rientrare i file immagine nelle due caselle questi devono essere ridimensionati (altrimenti vengono visualizzati in parte) con un programma tipo Paint.

Alfredo
di alfrimpa data: 09/05/2015 18:48:37
Mah adesso ho riprovato a salvare il file (Pino) in 2003 e me lo ha fotto dandomi come dimensione 24K boh chissà cos'era successo prima.

L'ho quindi allegato.

Alfredo
Immagine condizionata da risultato cella
di Pino (utente non iscritto) data: 12/05/2015 00:22:07
Ciao Alfredo, intanto ti ringrazio per l'attenzione, il tempo dedicato e per avermi mandato il File, purtroppo però non riesco a farlo partire. Ho modificato la directory, lasciando il file delle immagini Jpg sul deskstop, ho inserito i dati sul Visual Basic Editor ho dato l'avvio con Alt + F8 e mi restituisce questo errore: "Errore di Run - Time '28': Spazio dello Stack esaurito", forse manca qualce passaggio? Ho verificato sui dati da inserire, che c'é un riferimento alle celle H11 e H12 dove non ci sono dati....va bene lo stesso? (Non so se hai ancora sottomano l'esempio che ho inviato per guardare). Ti saluto. Pino
di alfrimpa data: 12/05/2015 10:58:00
Ciao Pino

Ma tu hai provato il mio (Pino.xls) o il tuo file?

Giusto per provare:

1) Crea in radice C: una directory denominata Excel
2) Metti in questa directory i 4 file .jpg
3) Riprova il tutto con il "mio" file (Pino.xls) senza modificare niente nella macro.

La macro viene eseguita ogni volta che viene modificata una cella del range G6:H11 e, di conseguenza, quando varia il totale nelle somme sottostanti.

Fammi sapere.

Alfredo
di Pino (utente non iscritto) data: 12/05/2015 11:54:47
Ciao Alfredo, scusami ma io ho lavorato con i dati mandati attraverso il Forum (come File pensavo ti riferissi a quelli), di File allegati non ne ho trovati o almeno, non l'ho visto oppure non sò dove cercarlo. Pino
di alfrimpa data: 12/05/2015 12:01:54
Pino il mio file è la quarta icona a partire da sinistra.

Alfredo
di Pino (utente non iscritto) data: 13/05/2015 01:13:01
OK grazie, appena posso verifico. Finalmente ho capito dove sono i File allegati
Ciao.
di Pino (utente non iscritto) data: 14/05/2015 17:50:56
Ciao Alfredo, funziona benissimo . Ora, però, devo solo capire come dimensionare la cella in cui vanno le immagini. Nel cliccare in quà e là, mi sembra di aver visto gli estremi delle due celle (n. di riga e n. di colonna), ma non riesco a rivisualizzarlo. Ti chiedo l'ultimo "aiutino" poi non ...più. Un saluto. Pino
di alfrimpa data: 15/05/2015 14:15:11
Ciao Pino

Le immagino non sono inserite in celle ma in appositi controlli "Immagine".

Per inserire tali controlli sul foglio occorre andare sul menù Sviluppo --> Inserisci e poi scegli "Immagine" tra i controlli ActiveX.

Per poter variare la dimensione di tali controlli devi andare sempre in Sviluppo, seleziona "Modalità di Progettazione" e poi fai clic sul controllo Immagine e questo sarà selezionato e ne potrai variare le dimensioni poi deseleziona la "Modalità di Progettazione".

Spero di essere stato chiaro.

Alfredo
di Pino (utente non iscritto) data: 21/05/2015 07:01:48
Ciao Alfredo, finalmente ho trovato il tempo per risponderti. Di quei comandi che mi hai detto, io non ne trovo uno, forse perche è Excel 2003? Se così fosse, ci sono altri comandi corrispettivi per arrivare a quanto hai detto?
Buona giornata. Pino
di alfrimpa data: 21/05/2015 10:58:52
Ciao Pino

Potresti specificare quali sono i comandi che non hai?

In Excel 2003 devi andare sul menù Strumenti, poi Macro e poi Visual Basic Editor.

Una volta nell'Editor dovresti avere una voce "Inserisci" ed in quella dovresti trovare i controlli ActiveX tra cui scegliere il controllo "Immagine".

Io ho la versione 2007 che, a livello di interfaccia, è radicalmente cambiata rispetto alle precedenti release.

Fammi sapere.

Alfredo
di Pino (utente non iscritto) data: 23/05/2015 22:55:21
Ciao Alfredo, sino alla voce "inserisci" va bene, è dopo che non trovo "controllo immagine". Mi si aprono una moltitudine di opzioni ma non con questa dicitura, inoltre con linguaggi, per me indecifrabili. Per cui mi arrendo alla mia "ignoranza" e mi accontento di quello che ho ottenuto, mi va già bene così.Ti ringrazio per la pazienza e spero che sarai sempre così disponibile anche in altre eventuali future occasioni. Buona domenica.
Pino
di alfrimpa data: 24/05/2015 08:52:29
Ciao Pino

Il controllo Immagine dovrebbe essere disponibile di default.

Giusto per capire (e per curiosità) visto che non ho Excel 2003 potresti allegare un'immagine della schermata che ti compare dopo che hai cliccato su Inserisci?

Alfredo
di Pino (utente non iscritto) data: 24/05/2015 12:10:39
Come mi hai detto, sono andato su strumenti, macro, Visual Basic Editor e su inserisci trovo la schermata che ti ho inviato per file. Da lì in poi è tutta una zona per me sconosciuta
Ciao.
Pino
di alfrimpa data: 24/05/2015 14:56:15
Ciao Pino

L'icona cui facevo riferimento è quella con il martello e la chiave inglese); nella tua schermata è quella immediatamente a sinistra di quella con il punto interrogativo dell'Help.

La cosa strana è che la vedo "disabilitata" cioè non colorata come le altre e quindi non attiva.

Alla cieca proverei a dirti vai sul menù Strumenti, Visualizza e Casella degli Strumenti e vedere se riesci ad aprirla.

Fammi sapere

Alfredo
di alfrimpa data: 24/05/2015 14:58:41
Puoi allegare una schermata con il menù Strumenti aperto giusto per vedere cosa contiene?

Alfredo
di alfrimpa data: 24/05/2015 15:01:40
Altra prova: prova a cliccare sull'icona della modalità di progettazione (quella con matita e squadra) e vedi se l'icona della casella si attiva.

Alfredo
di alfrimpa data: 24/05/2015 15:04:52
Oppure ancora, sempre nell'editor VBA nel menù Visualizza prova a vedere se c'è la casella degli strumenti

Alfredo
di alfrimpa data: 24/05/2015 16:10:50
Comunque domani cerco di sentire un amico che, oltre ad Excel 2013, possiede anche Excel 2000 che forse è più "vicino" al 2003 di quanto non lo sia il 2007 e vediamo cosa mi dice.

Alfredo
di Pino (utente non iscritto) data: 24/05/2015 19:29:46
Ho provato come dici, ma la trovo sempre disabilitata e non c'e verso di attivarla.
Come si fa a mandare una schermata con le tendine aperte?
Ciao.
Pino
di alfrimpa data: 24/05/2015 19:36:39
Attendiamo quello che mi dirà il mio amico poi ti dico.

Alfredo

Vuoi Approfondire?