Como insertas una imagen en excel 2013,control activeX no jala ninguna imagen

Disculpen estoy trabajando desde mi usb, un archivo de excel, con esta macro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
[nFILA] = Target.Row

ActiveSheet.Image1.Picture = LoadPicture("\H:\BASE CALLAO\IMAGEN\IMAGEN LECTOR\[nFILA]" & [xCODIGO].Text & ".jpg")

End Sub

Pero no aparece ninguna imagen cuando paso por cada fila.

Si alguien puede orientarme.

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.