Inserir link externo em shape

[RogerioGottardi]

Tenho um vba que insere N shapes e gostaria de saber como fazer para inserir um hiperlink nesse shape para abrir um arquivo externo:

 

Private Sub PesquisarButton_Click()
Dim Plan As Worksheet
Dim Imagem As Shape
Dim i As Integer
Dim total As Integer
'Excluindo todos os shapes anteriormente existentes
    Dim o As Object
    For Each o In ActiveSheet.DrawingObjects
        If o.Name <> "PesquisarButton" Then
            o.Delete
        End If
    Next o
    On Error GoTo 0

'Inserindo as imagens
i = 4
total = Planilha1.Cells.Range("m1").Value
Set Plan = ActiveSheet
contadortem = 2

While i < total

valor = Planilha1.Cells.Range("h" & i).Value
If valor <> "FORA" Then
    link = Planilha1.Cells.Range("i" & i).Value
    posicaox = Planilha4.Cells.Range("a" & contadortem).Value
    posicaoy = Planilha4.Cells.Range("b" & contadortem).Value
    endereco = Planilha4.Cells.Range("c" & contadortem).Value
    Set Imagem = Plan.Shapes.AddPicture(link, endereco, msoTrue, posicaox, posicaoy, 278, 156)
	'Aqui gostaria de inserir um link nessa imagem. O link se encontra na célula planilha4.cells.range("c"&i).value
    contadortem = contadortem + 1
End If

i = i + 1

Wend
End Sub

 

[RogerioGottardi]

Consegui já. Adicionei esse código:

    Set Imagem = Plan.Shapes.AddPicture(link, endereco, msoTrue, posicaox, posicaoy, 278, 156)
    Imagem.Name = Planilha1.Cells.Range("j" & i).Value
    Planilha4.Hyperlinks.Add _
    Anchor:=Imagem, _
    Address:=Planilha1.Cells.Range("K" & i).Value, _
    SubAddress:="", _
    ScreenTip:=""