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


-4

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

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


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

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

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

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

Ответы:


1

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

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

enter image description here

  1. Нажмите Ctrl + с скопировать это
  2. Закрыть окно
  3. Выберите ячейку, в которую хотите вставить гиперссылку
  4. Нажмите 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


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

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

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

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

Пожалуйста. Если этот ответ является приемлемым, укажите это галочкой под подсчетом голосов. Это позволяет читателям узнать, что при поиске доступен приемлемый ответ.
CharlieRB
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.