Dante Amor respondió:
H o l a: Prueba con la siguiente: Sub insertarimagen() 'Por.DAM On Error Resume Next ruta = ActiveWorkbook.Path & "\" For i = 3 To Range("A" & Rows.Count).End(xlUp).Row imagen = Cells(i, "A") Set img = ActiveSheet.Pictures.Insert(ruta & imagen) With...