Inserire immagini o miniature in foglio excel

[luigi99]

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 .
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

[Flash30005]

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

[luigi99]

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
Ho qualche file con poche immagini e provo a vedere quanto tempo mi prende usare questo metodo!!
Ciao

[martindog]

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

[Anthony47]

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

[martindog]

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

[Anthony47]

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

[martindog]

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]

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

[andrea.baiocco1804]

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

[ricky53]

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.