Как получить гиперссылку изображения в тексте?

Question

У меня есть изображения с гиперссылками (скопировано из интернета). Мне нужно преобразовать эти скрытые гиперссылки в URL в другой строке.

Как я могу это сделать?

Answer 1

Вы не дали нам много информации о том, КАК вы хотите это сделать, поэтому вот основной функциональный способ сделать это.

1. Щелкните правой кнопкой мыши изображение, выберите « Edit Hyperlink
2. Выберите URL в поле Address

3. Нажмите Ctrl + C, чтобы скопировать его
4. Закрыть окно
5. Выберите ячейку, в которую хотите вставить гиперссылку
6. Нажмите Ctrl + v, чтобы вставить его

Более автоматизированные способы сделать это могут быть выполнены, но для использования VBA требуется знание расширенных функций в Excel. Мы не знаем, каков ваш уровень опыта, и вы не объяснили, что вы пробовали или сделали самостоятельно.

---

Чтобы автоматизировать это с помощью VBA, добавьте приведенный ниже код в проводник VBA в Sheet1 .

Вы можете попасть в окно VBA, нажав Alt + F11.

Код:

Sub GetImangeHyperlinks()

Dim shp As Shape
Dim sTemp As String

For Each shp In ActiveSheet.Shapes
    sTemp = ""
    On Error Resume Next 'go to next shape if no hyperlink
    sTemp = shp.Hyperlink.Address
    On Error GoTo 0
    If sTemp <> "" Then
        'activate the cell the image is in    
        shp.TopLeftCell.Activate
        'paste down one row and back one column
        ActiveCell.Offset(1, -1).Value = sTemp 
    End If
Next

End Sub

Чтобы запустить код, поместите курсор на слово « Sub в начале кода, затем нажмите F5. Он должен работать довольно быстро и результаты должны выглядеть следующим образом.