inserire Macro per associare immagine ad una cella

il controllo della presenza di immagini c'è già, quindi non capisco.
Chi ti ha chiesto il file in formato csv non capisce niente, il csv è un puro file di testo, figuriamoci se può contenere immagini.

patel45, 01/12/2017 17.27:

---

il controllo della presenza di immagini c'è già, quindi non capisco.
Chi ti ha chiesto il file in formato csv non capisce niente, il csv è un puro file di testo, figuriamoci se può contenere immagini.

---

ad ogni modo non va , si blocca e mi da il messaggio che ho postato in precedenza , sto lavorando sul mac. riprovo e speriamo che funzioni
Giorgia

ma su un pc con win funziona ? ovviamente con le \ al posto di :

dovresti allegare una cartella zippata col file e con alcune immagini, altrimenti non posso testare il codice

patel45, 01/12/2017 19.09:

---

ma su un pc con win funziona ? ovviamente con le \ al posto di :

dovresti allegare una cartella zippata col file e con alcune immagini, altrimenti non posso testare il codice

---

Ma scusa ?? sei tu che mi hai detto di provare con mac , certo con win andava e abbiamo risolto !
Sto cercando di farla funzionare su mac
on riesco ad allegare nulla anche zippato
La cartella che contiene i file si trova sul desktop e si chiama PRODOTTO

GIORGIA.17, 01/12/2017 22.22:

---

Ma scusi ?? E' lei che mi hai detto di provare con mac , certo con win andava e abbiamo risolto !
Sto cercando di farla funzionare su mac
Non riesco ad allegare nessun documento anche zappato come faccio ...ha inserito fino ad un certo punto e poi basta
La cartella che contiene i file si trova sul desktop e si chiama PRODOTTO

---

io non ho la disponibilità di un mac per testare il codice quindi è inutile che tu alleghi la cartella.

Buongiorno,
sto usando la macro che c'è ad inizio del post e funziona su PC perfettamente, avendo file ed immagini nella stessa cartella.
Allego la macro usata:
Sub InsImg()
Application.ScreenUpdating = False
ActiveSheet.Shapes.SelectAll
Selection.Delete
mPath = ActiveWorkbook.Path
r = 2 ' riga inizio prodotti
Lr = Range("A" & Rows.Count).End(xlUp).Row ' ultima riga da analizzare
For i = r To Lr
mFoto = Cells(i, 1)

If Len(mFoto & "") <> 0 Then ' se c'e' il nome prodotto
If Dir(mPath & "\" & mFoto & ".jpg") <> "" Then ' se la foto esiste
' inserisce foto e adatta a dimensioni cella/colonna B
With ActiveSheet.Pictures.Insert(mPath & "\" & mFoto & ".jpg")
'NOTA: in blu per centrare la foto nelle celle (puoi ovviamente variare), altrimenti vengono una attaccata all'altra
.Top = Range("B" & i).Top + 5
.Left = Range("B" & i).Left + 5
.Height = Range("B" & i).Height - 10
.Width = Range("B" & i).Width - 10
End With
End If
End If
Next i
Application.ScreenUpdating = True
End Sub

Vorrei sapere come poter inserire più di 1 immagine avente lo stesso nome EX:

COL-A COL-B COL-C COL-D
112233 112233.jpg 112233_1.jpg 112233_2.jpg

Sono tutte nominate con lo stesso nome della colonna A ma hanno _1 _2 etc...

Ringrazio anticipatamente chiunque voglia dedicare del tempo!
Ciao
Emanuele

prova questa

Al di là di accodarsi a post altrui, segnalo:

https://forum.ialweb.it/forum_posts.asp?TID=16467168&title=macro-x-inserire-pi-foto-in-excel

saluti