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

-4

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

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

microsoft-excel images hyperlink

— raiks
источник

Разместите образец файла и объясните в контексте. Что у тебя где ?? Гиперссылки на что? Вы скопировали содержимое веб-страницы и вставили его в Excel в виде HTML? А теперь вы хотите извлечь URL для изображений? Пожалуйста, поймите, что мы не можем видеть ваш экран. Вы действительно, действительно должны правильно объяснить, что вам нужно.

— teylyn

Вы можете найти файл Вот , Мне нужны гиперссылки с этими изображениями на строку Изображения продуктов.

— raiks

Извините за это, но я никогда не использовал Excel онлайн, и я посмотрел, как это работает, и удалил одну из ваших колонок. Я предполагал, что данные не будут сохранены, но, похоже, по какой-то причине.

— PeterJ

Сохраните его на своем компьютере, и вы можете использовать обычный Excel

— raiks

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

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

enter image description here

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

enter image description here

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

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

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

enter image description here

Код:

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

enter image description here

— CharlieRB
источник

Спасибо! Это то, что я имею в виду, но мне нужна автоматическая версия. В моем исходном файле более 1000 фотографий. Вы можете сказать мне, и я попробую.

— raiks

Вы знакомы с VBA?

— CharlieRB

Я думаю, что справлюсь

— raiks

Добавлены инструкции VBA.

— CharlieRB

Пожалуйста. Если этот ответ является приемлемым, укажите это галочкой под подсчетом голосов. Это позволяет читателям узнать, что при поиске доступен приемлемый ответ.

— CharlieRB