IMAGENES jpg

[Pepito]

Tengo el siguiente codigo que tome del foro, que inicialmente
funcionaba para imagenes BMP, quise adaptarlo para que funcionara para
imagenes JPG, pero no me reconoce las imagenes
alguien tiene alguna idea de como solucionarlo.

Gracias...




Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
If Not Target.Address = "$D$1" Then Exit Sub
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto
As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
De_donde = "C:\Windows\" & [D1] & ".jpg" 'Aquí va la ruta donde
están las imágenes
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:H12")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
Fin:
End