Condividi:        

Importare immagini a seconda del testo in una cella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Importare immagini a seconda del testo in una cella

Postdi Paolo67met » 19/10/24 08:03

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
Paolo67met
Utente Junior
 
Post: 43
Iscritto il: 17/01/24 20:25

Sponsor
 

Re: Importare immagini a seconda del testo in una cella

Postdi Anthony47 » 19/10/24 10:12

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...
Avatar utente
Anthony47
Moderatore
 
Post: 19446
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Importare immagini a seconda del testo in una cella

Postdi Paolo67met » 19/10/24 10:54

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...
Paolo67met
Utente Junior
 
Post: 43
Iscritto il: 17/01/24 20:25

Re: Importare immagini a seconda del testo in una cella

Postdi Raffaele53 » 19/10/24 13:53

>>>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
Raffaele53
Utente Junior
 
Post: 19
Iscritto il: 03/10/24 13:06

Re: Importare immagini a seconda del testo in una cella

Postdi Paolo67met » 19/10/24 21:22

Risolto grazie!
Paolo67met
Utente Junior
 
Post: 43
Iscritto il: 17/01/24 20:25


Torna a Applicazioni Office Windows


Topic correlati a "Importare immagini a seconda del testo in una cella":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti