Гиперссылка EXCEL: ссылка JPG в папке через гиперссылку

ИЖ е сделал несколько макросов, которые можно использовать:

мой вариант использования был 5000 ссылок на изображения каждое имя изображения был номер изображения ie. 2345.jpg

Мне нужно было повернуть число.jpg к гиперссылке на папку в том же пути, что и лист. Функция удаления удобно обратить вспять процесс.

использовать: изменить имя папки, и если вам нужно отменить введите регулярное выражение имени файла.

выделите ячейки, необходимые для запуска макроса чтобы прикрепить макрос к кнопке для удобства.

Sub addHyperlinkFormula()

    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