Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Inserire immagini o miniature in foglio excel

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

Re: Inserire immagini o miniature in foglio excel

Postdi luigi99 » 20/04/12 11:12

scusate, ma sono io che ho descritto male la richiesta.
non era: in 3/4 colonne, quindi non solo C2:C100 come in esempio ma C2:C300-C3C300 ecc. ecc.
ma: in 3/4 colonne, quindi non solo C2:C300, ma anche D2:D300--E2:E300 ecc. ecc.!!!
questo per non avere 1000 immagini su una colonna sola che renderebbe difficile la ricerca delle varie immagini.
Comunque ho fatto delle prove e basta aggiungere le colonne qui:PicList = "C2:C100" poi posso fare tutte le colonne che voglio...quello che conta è creare il collegamento ipertestuale all'immagine giusta.
Anzi dirò di più: se nel foglio excel che contiene l'elenco delle immagini ho un elenco tipo imm1,imm2,imm5, imm6 e successivamente aggiungo una riga per inserire l'imm3 i link si aggiornano automaticamente basta che la nuova immagine sia inserita nella cartella delle immagini relativa.
Quindi posso aggiungere in futuro le foto che oggi mancano :lol: .
Per quanto riguarda il font dove metto il codice?
In un nuovo WorkBook o lo inserisco (dove?) nella macro del WorkBook esistente?
Scusatemi ancora per l'imprecisione nelle mie richieste.
Ciao
ex Autodidatta, ma ancora in cerca di grane con il computer
luigi99
Utente Senior
 
Post: 563
Iscritto il: 21/11/01 01:00
Località: Vigliano Biellese

Sponsor
 

Re: Inserire immagini o miniature in foglio excel

Postdi Flash30005 » 20/04/12 14:02

se parli di collegamento hiperlink puoi spostarlo dove vuoi e funzionerà sempre
è come se fosse un oggetto (es.: pulsante collegato ad una macro) in quanto ha in sé l'indirizzo del file

Per l'attivazione automatica della macro puoi inserire quel codice nel foglio (non modulo) del quale devi formattare le colonne, clicca due volte, nel frame di sinistra (Excel Oggetti: Foglio1) e incollare questo codice

Codice: Seleziona tutto
Private Sub Worksheet_Activate()
Columns("C:F").Font.Size = 7
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Inserire immagini o miniature in foglio excel

Postdi luigi99 » 07/05/12 11:27

sempre alla ricerca di ottenere quanto descritto, ho trovato in rete questa procedura che, per quanto laboriosa, è quello che illustra precisamente quello che vorrei ottenere:
Per collocare un’immagine all’interno di una singola cella:

Per prima cosa occorre selezionare la cella all’interno della quale si vuole collocare l’immagine, poi si fa tasto destro del mouse e si seleziona nel menu che compare la voce Inserisci commento.
Apparira’ la tipica area con sfondo giallo per inserire i commenti; a questo punto cliccare con il tasto destro del mouse sul BORDO TRATTEGGIATO dell’area di commento.
Nel menu che compare, selezionare Formato commento… => Colori e linee, quindi premere sulla freccetta accanto alla voce colore della sezione Riempimento, per far apparire il menu a discesa relativo. Qui, selezionare la voce Effetti di riempimento….

Nel nuovo menu che comparira’, cliccare sulla scheda immagine, quindi sul pulsante Seleziona immagine…, per importare l’immagine che interessa da collocare nella cella.

non credo che si possa automatizzare (ogni casella avrebbe un "commento" diverso), ma sarebbe l'optimum :D :D
Ho qualche file con poche immagini e provo a vedere quanto tempo mi prende usare questo metodo!! 8)
Ciao
ex Autodidatta, ma ancora in cerca di grane con il computer
luigi99
Utente Senior
 
Post: 563
Iscritto il: 21/11/01 01:00
Località: Vigliano Biellese

Re: Inserire immagini o miniature in foglio excel

Postdi martindog » 13/09/14 16:21

Salve a tutti, sono nuovo del forum e per niente pratico di macro

Riapro questa discussione perchè la macro di Anthony47 mi interessa per un mio progetto, ma può essere modificata per visualizzare da più subdirectory e se si come?


Grazie per l’aiuto


Excel 2003
martindog
Newbie
 
Post: 4
Iscritto il: 09/09/14 21:04

Re: Inserire immagini o miniature in foglio excel

Postdi Anthony47 » 14/09/14 00:44

Ciao martindog, benvenuto nel forum.
Si, penso che si possa fare...
Nella macro la directory dell' immagine e' fissa (ipath = ThisWorkbook.Path & "\pippo\"), tu invece userai un struttura If .. Then .. Else (se sono poche varianti), oppure una Select Case / End Select se vuoi piu' liberta' di scegliere, oppure un' altra logica coerente con la tua situazione per assegnare alla variabile "ipath" il valore che ti interessa.

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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserire immagini o miniature in foglio excel

Postdi martindog » 14/09/14 08:58

Ciao Anthony

grazie per il benvenuto e la risposta celere, ma purtroppo non capendo niente di macro non so come usare i tuoi suggerimenti, avrei bisogno di un esempio pratico.

Posso esporti la mia situazione.

In una directory ho subdirectory 1, subdirectory 2, subdirectory 3, ecc. in ogni subdirectory ci sono delle immagini jpg.

Nella stessa directory ho un foglio di excel su cui nella colonna A ho un elenco di nomi che corrispondono alle immagini della subdirectory 1, nella colonna D un elenco che corrisponde alle immagini della subdirectory 2, nella colonna G un elenco corrispondente alla subdirectory 3, ecc.

Le subdirectories sono più di 30 e le immagini preferirei non riunirle in un’unica directory perchè sono molte ed alcune hanno lo stesso nome.


Grazie della cortesia e della disponibilità.



Martindog
Excel 2003
martindog
Newbie
 
Post: 4
Iscritto il: 09/09/14 21:04

Re: Inserire immagini o miniature in foglio excel

Postdi Anthony47 » 15/09/14 02:05

Nella situazione che hai descritto puoi usare questa sequenza:
Codice: Seleziona tutto
If Target.column=1 then ipath="C:\Directory\Subdirectory1\"    '1=colonna A
If Target.column=4 then ipath="C:\Directory\Subdirectory2\"    '4=colonna D
If Target.column=7 then ipath="C:\Directory\Subdirectory3\"    '7=colonna G
'eccetera
Questo in sostituzione della riga ipath = ThisWorkbook.Path & "\pippo\"

La struttura (lo dico per i puristi) e' disottimizzata ma l' ho scelta perche' e' semplice da capire; sarebbe piu' consona una struttura If /Else If /... /End If, oppure una Select Case /End Select
Ricorda che la stringa in ipath deve includere il drive (es C:) e l' intero percorso, chiuso dal carattere \.

Nella macro dovrai anche modificare la compilazione di PicList in
Codice: Seleziona tutto
PicList = "A1:A100, D1:D100, G1:G100"      '<<< **1   NB: piu' gli "eccetera"


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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserire immagini o miniature in foglio excel

Postdi martindog » 15/09/14 13:58

Grazie Anthony

ho… hai risolto il problema

siamo fortunati noi ignoranti in materia (almeno io)
che ci siano persone cortesi come te

però devo ancora abusare della tua cortesia e chiederti
perchè si deve includere l’indirisso del drive e non si può,
come il primo, spostare in qualsiasi cartella e funziona?


Ciao


Martindog
Excel 20003
martindog
Newbie
 
Post: 4
Iscritto il: 09/09/14 21:04

Re: Inserire immagini o miniature in foglio excel

Postdi martindog » 15/09/14 18:47

Per non stare ad aspettare ho fatto delle prove e
da questa sequenza
Codice: Seleziona tutto
If Target.column=1 then ipath="C:\Directory\Subdirectory1\"   
If Target.column=4 then ipath="C:\Directory\Subdirectory2\"   
If Target.column=7 then ipath="C:\Directory\Subdirectory3\" 

ho modificato in questa

If Target.Column = 1 Then ipath = ThisWorkbook.Path & "\Directory\Subdirectory1\"
If Target.Column = 4 Then ipath = ThisWorkbook.Path & "\Directory\Subdirectory2\"
If Target.Column = 7 Then ipath = ThisWorkbook.Path & "\Directory\Subdirectory3\"

per non avere il vincolo del drive

nelle prove funziona ma non so se può creare problemi

un tuo parere?


Grazie e ciao

Martindog
Excel 2003
martindog
Newbie
 
Post: 4
Iscritto il: 09/09/14 21:04

Re: Inserire immagini o miniature in foglio excel

Postdi andrea.baiocco1804 » 30/03/15 13:26

Buonasera a Tutti.
Ho un piccolo problema e non so se è questo il posto corretto.
ho bisogno che le foto siano inserite e non linkate nella cella precedente a quella dove inserisco il nome.
Cosa devo modificare rispetto a questo?
Dim CIm As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Exit Sub
PicList = "C2:C300" '<<< **1
ipath = "" '<<<Percorso foto **2'
If Intersect(Target, Range(PicList)) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
NIm = Target.Value
If CIm > "" Then ActiveSheet.Shapes(CIm).Delete
'
Cells(ActiveWindow.ScrollRow, Range(PicList).Column + 1).Select
ActiveSheet.Pictures.Insert(ipath & NIm & ".jpg").Select
CW = Selection.ShapeRange.Width
NWS = 300 / CW '<<< **3
Selection.ShapeRange.ScaleWidth NWS, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight NWS, msoFalse, msoScaleFromTopLeft
CIm = Selection.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=ipath & NIm & ".jpg"
Range(Target.Address).Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
andrea.baiocco1804
Newbie
 
Post: 2
Iscritto il: 30/03/15 13:11

Re: Inserire immagini o miniature in foglio excel

Postdi ricky53 » 30/03/15 13:48

Ciao,
dovresti inserire il tuo quesito in una nuova discussione.

Per informazione il codice che hai riportato (a parte il fatto che vanno utilizzati i TAG per il codice) già inserisce l'immagine il cui nome è presente nella cella selezionata, inoltre, inserisce un HyperLink che, con un "Click", apre il visualizzatore di immagini di Windows.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Inserire immagini o miniature in foglio excel":


Chi c’è in linea

Visitano il forum: fabrizio2001 e 11 ospiti