Як витягти гіперпосилання з декількох зображень у Excel?
Скажімо, у вас є список зображень на робочому аркуші, і кожне зображення містить гіперпосилання, тепер ви хочете витягти реальні адреси гіперпосилань із цих зображень до їх наступних комірок, як показано на наступному знімку екрана. Звичайно, ви можете скопіювати адресу гіперпосилання з Редагувати гіперпосилання вікно по одному, але це забирає багато часу, якщо потрібно витягти кілька гіперпосилань. У цій статті я ознайомлю з деякими методами швидкого та простого вирішення цього завдання в Excel.
Витягніть гіперпосилання з декількох зображень за допомогою коду 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 для запуску цього коду, і всі адреси гіперпосилань були витягнуті у відповідні комірки поруч із зображеннями, див. знімок екрана:
примітки: Цей код витягне реальні адреси з усіх зображень на поточному аркуші.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!