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

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

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

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

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

3. Нажмите Ctrl + с скопировать это
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 , Он должен работать довольно быстро, и результаты должны выглядеть следующим образом.