Importare immagini a seconda del testo in una cella

[Paolo67met]

Ciao a tutti,
ho un foglio excel che aggiorna alcune celle ogni 10 min (tramite macro).
Avrei la necessità di visualizzare in una determinata posizione del foglio una immagine (ne sono 16) a seconda del testo che c'è in una cella specifica.
Esempio:
Se nella cella N36 compare il testo "N" (che si aggiorna ogni 10 min) allora dovrebbe comparire l'immagine "N.jpg" (100x100 pixel) di fianco.
Se nella cella N36 compare il testo "NNE" allora dovrebbe comparire l'immagine "NNE.jpg"...

Con una macro riuscivo a far cambiare le immagini a seconda di un valore in una cella.
Con il testo ho un pò di difficoltà!
Un aiuto?
Grazie

[Anthony47]

Quindi tu hai gia' una macro che aggiorna periodicamente il contenuto di N36...
In coda al codice che usi aggiungi questo snippet:

Codice: Seleziona tutto

Dim pPath As String, cPic

pPath = "C:\Prova\"                '<<<<
On Error Resume Next
    ActiveSheet.Shapes("ZCZCPict").Delete
    Set cPic = ActiveSheet.Shapes.AddPicture(pPath & Range("N36").Value & ".jpg", False, True, PosizLeft, PositTop, True, True)
    With cPic
        .LockAspectRatio = msoFalse     ' ***
        .Height = 80                    ' ***
        .Width = 80                     ' ***
        .Left = Range("O36").Left
        .Top = Range("O36").Top
        .Name = "ZCZCPict"
    End With
    Set cPic = Nothing
On Error GoTo 0


L'istruzione marcata <<< va aggiornata (il percorso delle tue immagini, con \ finale"), mentre le istruzioni marcate *** servono a dimensionare le immagini, se questo e' necessario, e anche queste le dovrai personalizzare

Prova...

[Paolo67met]

Ehm c'è un problema nel senso che la macro non è scritta in un modulo!
Per importare i dati ogni x minuti ho fatto:
Menu Dati--->Carica dati esterni da testo --->Ho selezionato la cartella dove è ubicato il file.txt
ed ho seguito la procedura di importazione dove poi alla fine ho scelto di aggiornare il file di testo ogni x minuti.


per cui non so dove scrivere la tua macro...

[Raffaele53]

>>>dovrebbe comparire l'immagine....di fianco
Presumo che debba andare in O36 (eventualmente correggi anche il codice di Anthony47)
Premi ALT+F11 (trova il nome del Tuo foglio, doppio click) ed incolla sulla destra

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O36")) Is Nothing Then 'il range deve essere uguale al codice
Application.EnableEvents = False
'codice
'codice
'codice
Application.EnableEvents = True
End Sub

[Paolo67met]

Risolto grazie!