Inserimento immagini dinamiche in Excel 2007

Bene. Grazie del riscontro, Icecat81.

Grazie mille, non so perché abbia dovuto provare la modifica una mezza dozzina di volte, alla fine ha funzionato nonostante abbia sempre fatto la medesima modifica .... l'importante è che adesso funziona.

Grazie di nuovo

Ciao Icecat81,

a occhio direi che dovrebbe bastare cambiare:

mPath & "" & mQuotation & ".jpg"

in:

mPath & "\imgs" & mQuotation & ".jpg"

Sale, in seguito a quanto indicato in vari forum sono riuscito a inserire rigo per rigo, immagini in seconda colonna, in base al testo scritto in prima colonna, con il seguente listato:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Application.ScreenUpdating = False

ActiveSheet.Shapes.SelectAll

Selection.Delete

mPath = ActiveWorkbook.Path

r = 4 ' riga inizio prodotti

Lr = Range("D" & Rows.Count).End(xlUp).Row ' ultima riga da analizzare

For i = r To Lr

    mQuotation = Cells(i, 1)

    If Len(mQuotation & "") <> 0 Then ' se c'e' il nome prodotto

        If Dir(mPath & "" & mQuotation & ".jpg") <> "" Then ' se la foto esiste

            ' inserisce foto e adatta a dimensioni cella/colonna B

            With ActiveSheet.Pictures.Insert(mPath & "" & mQuotation & ".jpg")

'NOTA: in blu per centrare la foto nelle celle (puoi ovviamente variare), altrimenti vengono una attaccata all'altra

                .Top = Range("B" & i).Top + 2

                .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

Questo ha il limite che il file excel deve risiedere nella medesima cartella dove risiedono le immagini; qualcuno sa indicarmi come far in modo che le immagini siano ricercate nella sottocartella "imgs" che risiede nella cartella dove è il file excel ?

Grazie in anticipo.