insertar imagen en excel y asignarle al mismo tiempo un link a una web.

[fagoncis]

Lo dicho. Consigo añadir la imagen, pero no logro añadirle el link que necesito. El código que uso es:

Set FOTO1 = ActiveSheet.Pictures.Insert("C:\carpeta\foto.jpg")
ARR = 100
IZQ = 85
ANC = 80
ALT = 60
MARGEN = 148

With ActiveCell.Offset(0, 1).Range("A1")
ARRIBA = .Top
IZQUIERDA = .Left
ANCHO = .Offset(0, .Columns.Count).Left - .Left
ALTO = .Offset(.Rows.Count, 0).Top - .Top
End With
With FOTO1
.Name = "FOTO1"
.Top = ARRIBA
.Left = IZQUIERDA
.Width = ANCHO
.Height = ALTO
End With

Con esto coloco la foto donde necesito pero no consigo añadirle el link a la web.