EXCEL HYPERLINK: Link JPG na pasta via hyperlink

Question

Estou tentando descobrir se posso vincular um arquivo .jpg a um Excel por meio de hiperlink (ou de outra maneira).

Deixe-me explicar um pouco mais o que estou tentando fazer:

Usando o Excel 2013 :

1. Eu tenho uma pasta com +1000 imagens, nomeadas pelo código EAN .
2. Eu tenho um arquivo do Excel com todos os códigos EAN dos quais preciso de uma imagem.

Gostaria de vincular cada imagem a cada célula em uma coluna extra por meio de um hiperlink.

Isso é possível?

Eu tentei: =HYPERLINK("[Location pathway]\" & A1 & ".[filetype]","Click Here!")

Continuo recebendo um erro dizendo que não é possível abrir o arquivo.

    

Answer 1

Exemplo abaixo - Eu fiz uma célula com o caminho e outra com a extensão do arquivo. Então eu combinei tudo em outra célula, como =path-cell & EAN-cell & file-type-cell . Na coluna D, eu configurei o Hyperlink.

Você pode, é claro, ocultar as linhas e colunas de que não precisa.

    

Answer 2

Iv'e fez algumas macros que podem ser úteis:

Meu caso de uso foi de 5000 links para imagens, cada nome de imagem era o número da imagem, por exemplo. 2345.jpg

Eu precisava transformar o number.jpg em um hiperlink para uma pasta no mesmo caminho da planilha. A função de remoção é útil para reverter o processo.

Para usar: altere o nome da pasta e, se precisar inverter, insira a regex do nome do arquivo.

Realce as células necessárias para executar a macro. Você pode anexar a macro a um botão para facilitar.

SubaddHyperlinkFormula()Folder="Images/"

    For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
    If cell <> "" Then
    Filename = cell.Value
    Formula = "=HYPERLINK(""" & Folder & Filename & """,""" & Filename & """)"
    cell.Formula = Formula
    End If
    Next cell
End Sub

Sub removeHyperlinkFormula()
    'this regex is for 4235435.jpg
    RegexPattern = "([0-9]+\.jpg)" 

    Set regex = CreateObject("VBScript.RegExp")
        regex.Pattern = RegexPattern
        regex.Global = True
    For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
        If cell <> "" Then
            Set allMatches = regex.Execute(cell.Formula)
            If allMatches.Count <> 0 Then
                result = allMatches.Item(0).submatches.Item(0)
                cell.Value = result
                cell.Font.Underline = xlUnderlineStyleNone
                cell.Font.Color = vbBlack
            End If
        End If
    Next cell
End Sub