Як витягти гіперпосилання з декількох зображень у Excel?

Скажімо, у вас є список зображень на робочому аркуші, і кожне зображення містить гіперпосилання, тепер ви хочете витягти реальні адреси гіперпосилань із цих зображень до їх наступних комірок, як показано на наступному знімку екрана. Звичайно, ви можете скопіювати адресу гіперпосилання з Редагувати гіперпосилання вікно по одному, але це забирає багато часу, якщо потрібно витягти кілька гіперпосилань. У цій статті я ознайомлю з деякими методами швидкого та простого вирішення цього завдання в Excel.

doc витягує гіперпосилання із зображень 1

Витягніть гіперпосилання з декількох зображень за допомогою коду VBA

Витягніть гіперпосилання з декількох зображень за допомогою коду VBA

Наступний код VBA може допомогти вам одночасно отримати реальні адреси з кількох гіперпосилань, будь-ласка, виконайте крок за кроком:

1. Утримуйте клавішу ALT + F11 клавіші в Excel, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

Код 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 для запуску цього коду, і всі адреси гіперпосилань були витягнуті у відповідні комірки поруч із зображеннями, див. знімок екрана:

doc витягує гіперпосилання із зображень 1

примітки: Цей код витягне реальні адреси з усіх зображень на поточному аркуші.

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ...

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!