Как извлечь гиперссылки из нескольких изображений в Excel?
Предположим, у вас есть список изображений на листе, и каждое изображение содержит гиперссылку, теперь вы хотите извлечь реальные адреса гиперссылок из этих изображений в их следующие ячейки, как показано на следующем снимке экрана. Конечно, вы можете скопировать адрес гиперссылки из Изменить гиперссылку поочередно, но это займет много времени, если необходимо извлечь несколько гиперссылок. В этой статье я расскажу о некоторых методах быстрого и простого решения этой задачи в Excel.
Извлечение гиперссылок из нескольких изображений с кодом VBA
Извлечение гиперссылок из нескольких изображений с кодом VBA
Следующий код VBA может помочь вам извлечь реальные адреса сразу из нескольких изображений с гиперссылками, пожалуйста, делайте это шаг за шагом:
1. Удерживайте ALT + F11 ключи в Excel, чтобы открыть Microsoft Visual Basic для приложений окно.
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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!