Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL Cerca e inserisce immagine

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

EXCEL Cerca e inserisce immagine

Postdi Francesco53 » 02/06/10 17:21

Buon giorno a tutto il Forum,
in un foglio excel ho l'elenco delle squadre di calcetto e sulla destra l'immagine del gagliardetto della squadra,
la mia richesta è questa:
Quando predispongo le partite, vorrei che digitando il nome, mi ricercasse l'immagine del gagliardetto delle varie squadre. Pertanto se nella cella A3 digito Italia, nella cella B3 dovrebbe inserire l'immagine, come avviene per il Cerca.Vert. Sperando nell'aiuto per quanto richiesto, un saluto a tutti.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 648
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL Cerca e inserisce immagine

Postdi Anthony47 » 03/06/10 07:59

Guarda questa discussione: viewtopic.php?f=26&t=66589
Sono descritti due metodi, uno basato sulla posizione delle immagini e uno basato su un elenco di nomi di immagini, e varie combinazioni tra i due metodi.
Probabilmente il metodo piu' semplice e' il secondo:
-ti crei una tabella con nome squadra e nome della relativa immagine
-con Cerca.vert trovi, in questo elenco, il nome dell' immagine
-con la macro rendi visibile quell' immagine
Le immagini devono essere gia' integrate nel foglio e rese "non visibili"; e' anche descritta la possibilita' che le immagini siano su disco, ma l' elenco deve descrivere il path completo e il nome dell' immagine.
E' una discussione un po' lunga, ma credo dia molti spunti per il tuo argomento.

Prova e fai sapere, ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13986
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Cerca e inserisce immagine

Postdi Francesco53 » 05/06/10 14:20

Grazie Anthony, ma non ciò capito molto causa la mia difficoltà nel capire
il post suggerito.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 648
Iscritto il: 20/02/10 18:45

Re: EXCEL Cerca e inserisce immagine

Postdi Anthony47 » 05/06/10 15:51

Eh, devi insistere concentrandoti sul messaggio di fiorella.fortunato:
Comunque il concetto e':
-inserisci nel foglio tutte le immagini che ti servono, nella posizione che ti servono (quindi probabilmente sovrapposte)
-man mano che le inserisci prendi nota del nome immagine (vedi immagine) e della squadra a cui si riferiscono
Immagine

Uploaded with ImageShack.us
-ti fai una tabella come descritta (la col B non ti serve e la lasci vuota), magari su Foglio2
-poi in D33 di foglio1 (quello su cui lavori) metti la formula
Codice: Seleziona tutto
=CERCA.VERT(A3;Foglio2!A1:C100;3)

-tasto dx sul tab col nome foglio, scegli Visualizza codice, copi la macro di fiorella e la incolli nel frame di dx
-poi torni su excel, inserisci in A3 il nome della squadra e vedi l' effetto sulle immagini.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13986
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Cerca e inserisce immagine

Postdi Francesco53 » 07/06/10 11:36

Grazie Anthony.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 648
Iscritto il: 20/02/10 18:45

Re: EXCEL Cerca e inserisce immagine

Postdi scanacc » 17/01/17 19:32

Carissimo Antony, ho seguito il metodo da te indicato ed ho messo il codice da te suggerito inserendo anche alcune variabili per automatizzare la comparsa della immagine
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A2" Then
        Call ImmAle
    End If
End Sub
Sub ImmAle()
'
FoglioTab = "Foglio1"     '<<  Inserire Nome corretto del foglio Dati
FoglioOut = "Foglio2"     '<<  Inserire Nome corretto del foglio di out
CellaPos = "F1"           '<<  Inserire indirizzo cella con CONFRONTA
'
'Cancella le immagini presenti sul foglio di output
Application.EnableEvents = False
Sheets(FoglioOut).Activate
For Each Pict In ActiveSheet.Shapes
Pict.Delete
Next Pict
'
'Cerca l’ immagine ….
RigaNum = Range("F1").Value
Sheets(FoglioTab).Activate
CurPos = Range("B" & RigaNum).Address
For Each Pict In ActiveSheet.Shapes
  If Pict.TopLeftCell.Address = CurPos Then
  NomeImm = Pict.Name: Exit For
  End If
Next Pict
'      …. e copiala su foglio di output
Sheets(FoglioOut).Activate
If NomeImm = "" Then
MsgBox ("Nessuna Immagine corrisponde")
GoTo Uscita
End If
Sheets(FoglioTab).Shapes(NomeImm).Copy
Range("B2").Select    '<< Inserire Cella dove si vuole piazzare l’ immagine
ActiveSheet.Paste
    Sheets("Foglio2").Select
    Range("A2").Select
Uscita:
Application.EnableEvents = True
End Sub

Nel foglio1 ho inserito 2 sole immagini precedute dal nome (1 e 2). Inserendo nella cella A2 del foglio2 il loro nome (1 o 2) visualizzo correttamente in B2 l'immagine corrispondente.
Come potrei evitare il debug quando inserisco un numero sbagliato?
scanacc
Utente Junior
 
Post: 78
Iscritto il: 06/12/15 10:30

Re: EXCEL Cerca e inserisce immagine

Postdi Anthony47 » 18/01/17 23:35

Qualsiasi cosa che sia piu' vecchia di 5 giorni io l'ho dimenticata; nel caso specifico sono oltre 2400 gg.
Quindi dovresti partire descrivendo cosa vorresti fare e quale e' la struttura dei fogli che usi e a cui la macro si riferisce.
A quel punto qualche idea mi verra'...

Ti aspeeetto
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13986
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL Cerca e inserisce immagine":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti