link texto da célula para arquivo com o mesmo nome

3

Eu tenho uma pasta de trabalho no excel e em uma coluna eu estou colocando os nomes das imagens.

Eu quero criar um código macro / vba para que, quando eu digitar o nome do arquivo na coluna, IMG_1234 será automaticamente vinculado a um arquivo como file: /// \ public \ Pictures \ IMG_1234.JPG

Então, quando alguém clicar no link, ele carregará uma nova janela com a imagem exibida.

Encontrei algum código que responde à minha pergunta em uma macro ... no entanto, pergunto-me se é possível fazer isso para que seja atualizada automaticamente, em vez de ter que executar a macro todas as vezes ...

Sub PictureLink()

MyPath = "\\public\Pictures\"
StartRow = 8
EndRow = 200
MyEnd = ".JPG"

x = 0

For i = StartRow To EndRow
    If Len(Cells(i, 4).Value) > 0 Then
        MyFileName = ""
        MyFileName = Dir(MyPath & Cells(i, 4).Text & MyEnd, vbNormal + vbDirectory)

        If MyFileName <> "" Then
            x = x + 1
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), _
                        Address:=MyPath & Cells(i, 4).Text & MyEnd
        End If
    End If
Next i

End Sub

Espero que alguém possa me ajudar a modificar isso para que ele seja feito automaticamente.

Muito obrigado

    
por user157349 10.09.2012 / 11:00

1 resposta

2

Renomeie sua macro assim:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  ' your code here
End Sub

e use Target para acessar a célula.

    
por 10.09.2012 / 12:37