Как извлечь гиперссылки из нескольких изображений в Excel?

Предположим, у вас есть список изображений на листе, и каждое изображение содержит гиперссылку. Теперь вы хотите извлечь реальные адреса гиперссылок из этих изображений в соседние ячейки, как показано на следующем скриншоте. Конечно, можно копировать адрес гиперссылки по одной из окна Изменить гиперссылку, но это будет отнимать много времени, если нужно извлечь несколько гиперссылок. В этой статье я представлю несколько методов для быстрого и легкого решения этой задачи в Excel.

Извлечение гиперссылок из нескольких изображений с помощью кода VBA

Извлечение гиперссылок из нескольких изображений с помощью кода VBA

Следующий код VBA может помочь вам извлечь реальные адреса из нескольких гиперссылочных изображений за один раз, выполните шаг за шагом:

1. Нажмите и удерживайте клавиши ALT + F11 в Excel, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Извлечение реальных адресов из нескольких гиперссылочных изображений

Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
    Dim xSh As Shape
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xSh In ActiveSheet.Shapes
        If xSh.Type = msoPicture Then
            On Error Resume Next
            Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
            On Error GoTo 0
        End If
    Next
    Application.ScreenUpdating = xScreen
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код, и все адреса гиперссылок будут извлечены в соответствующие ячейки рядом с изображениями, см. скриншот:

Примечание: Этот код извлечет реальные адреса из всех изображений на текущем листе.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!