inserire Macro per associare immagine ad una cella

patel45, 25/11/2017 20.41:

---

se è tre giorni che ci provi qualche riga di codice avrai scritto, cosa ? inoltre non hai detto dove si trovano le immagini.

---

patel45, 26/11/2017 09.01:

---

non conosci il vba, ma vuoi impararlo ? o ti interessa risolvere questo problema e basta ? puo darsi che il codice che hai trovato debba essere adattato al tuo caso ed io potrei aiutarti a farlo.

---

patel45, 26/11/2017 10.16:

---

non posso testare in mancanza delle foto, ma secondo me devi correggere la riga
mFoto = Cells(i, 1)
in
mFoto = Cells(i, "B")
e sostituire B con C nelle righe

         .Top = Range("B" & i).Top + 5
         .Left = Range("B" & i).Left + 5
         .Height = Range("B" & i).Height - 10
         .Width = Range("B" & i).Width - 10

e A con B nella riga
Lr = Range("A" & Rows.Count).End(xlUp).Row
ovviamente il file excel deve stare nella stessa cartella delle foto.

La macro che hai copiato è fatta per i dati che partono dalla colonna A e non dalla B

---

patel45, 26/11/2017 11.45:

---

la modifica è questa
in
mFoto = Cells(i, "B")
tu hai scritto B senza virgolette

---

patel45, 26/11/2017 12.22:

---

non avevo notato che usi il mac, credo che tu debba modificare il backslash \ in slash / quindi

If Dir(mPath & "/" & mFoto & ".jpg") <> "" Then 
With ActiveSheet.Pictures.Insert(mPath & "/" & mFoto & ".jpg") 

---

GIORGIA.17, 26/11/2017 12.32:

---

Nulla , stesso errore , boh !

---

patel45, 26/11/2017 13.47:

---

Il problema non sono gli apici, ma l'organizzazione del disco (filesystem) diversa da win. La tua macro dopo le modifiche funziona perfettamente sul mio pc con win. Per cercare di risolvere prova questo codice e lancialo con F8 che permette l'esecuzione, step by step, quando ottieni l'errore posiziona il mouse sulle varie variabili e segnati il loro valore, quelle importanti sono:
mPath, mFoto, percorsofoto

Sub InsImg()
ActiveSheet.Shapes.SelectAll
Selection.Delete
mPath = ActiveWorkbook.Path
r = 2 ' riga inizio prodotti
Lr = Range("B" & Rows.Count).End(xlUp).Row ' ultima riga da analizzare
For i = r To Lr
  mFoto = Cells(i, "B")
  If Len(mFoto & "") <> 0 Then ' se c'e' il nome prodotto
    percorsofoto = mPath & "/" & mFoto & ".jpg"
    If Dir(percorsofoto) <> "" Then 
       With ActiveSheet.Pictures.Insert(percorsofoto)
         .Top = Range("C" & i).Top + 5
         .Left = Range("C" & i).Left + 5
         .Height = Range("C" & i).Height - 10
         .Width = Range("C" & i).Width - 10
       End With
    End If
  End If
Next i
End Sub

lancia anche questa sub

sub a
msgbox (ActiveWorkbook.Path & Application.PathSeparator)
end sub 

e posta il risultato

---

patel45, 26/11/2017 19.49:

---

controlla il risultato di

sub a
msgbox (ActiveWorkbook.Path & Application.PathSeparator)
end sub

interessa anche a me sapere come risolvere su mac

---

patel45, 29/11/2017 13.03:

---

non capisco la domanda, a chi lo vuoi mandare e come ?

---

patel45, 29/11/2017 16.54:

---

invece del metodo insert devi usare AddPicture, se non riesci riallega il file

---

GIORGIA.17, 29/11/2017 17.11:

---

non riesco ad allegarlo ora ho inserito i prezzi

---

patel45, 29/11/2017 18.38:

---

che c'entrano i prezzi ? li cancelli, salvi con altro nome e lo alleghi qui.
Poi non ho capito, dici che stai usando il mac, sei riuscita a far funzionare la macro sul mac ?

---

patel45, 29/11/2017 20.39:

---

ma non vedo la mia macro, cosa stai usando ?

---

patel45, 01/12/2017 12.26:

---

finalmente ! allora basta sostituire il carattere \ con :

---