Инструкции по вставке ссылок на изображения в Excel

Инструкция по вставке ссылки в существующее изображение в Excel

Шаг 1:Чтобы вставить ссылку на изображение в Excel, сначала откройте веб-сайт, содержащий изображение, ссылку на которое нужно вставить. Затем щёлкните правой кнопкой мыши по этому изображению и выберитеКопировать адрес изображения.

Шаг 2:Затем откройте файл Excel, куда вы хотите вставить ссылку на изображение. Щёлкните правой кнопкой мыши по месту, куда вы хотите вставить ссылку на изображение. Когда появится полоса прокрутки, выберите элемент.Связь.

Шаг 3:В этот момент откроется диалоговое окно «Вставить гиперссылку». Щелкните по элементу.Существующий файл или веб-страницаЗатем перейдите в боковую колонку меню и нажмите на пунктПросмотренные страницыТеперь вам нужно вставить скопированную ссылку на изображение в раздел.Адрес. После входа нажмитеХОРОШОчтобы перейти к вставке ссылки на изображение.

Шаг 4:После успешной вставки ссылки наведите указатель мыши на ячейку, куда была вставлена ​​ссылка, и появится путь к изображению.

Чтобы открыть это изображение, просто щёлкните левой кнопкой мыши по ссылке. Сайт, содержащий это изображение, будет быстро открыт.

Инструкции по вставке ссылок на изображения в Excel с помощью VBA

Нажмите Alt + F11, чтобы открыть редактор Visual Basic for Applications (VBA).

Перейдите в раздел Вставка > Выбрать модуль.

Введите следующий код VBA в новый модуль:

Sub InsertImageFromURL() Dim ws As Worksheet Dim imageURL As String Dim pic As Object Dim rng As Range ' Выберите лист и ячейку, содержащую URL-адрес изображения Set ws = ActiveSheet Set rng = ws.Range("A1") ' Замените A1 ячейкой, содержащей ссылку на изображение ' Получите ссылку на изображение из ячейки imageURL = rng.Value ' Проверьте, имеет ли ячейка допустимый URL-адрес If imageURL = "" Then MsgBox "Ячейка не содержит ссылку на изображение!", vbExclamation, "Error" Exit Sub End If ' Добавьте изображение в Excel Set pic = ws.Pictures.Insert(imageURL) ' Выровняйте размер изображения в соответствии с ячейкой With pic .ShapeRange.LockAspectRatio = msoFalse .Left = rng.Left .Top = rng.Top .Width = rng.Width .Height = rng.Height End With ' Освободить память Set pic = Nothing Set ws = Nothing Set rng = Nothing End Sub

Поместите ссылку на изображение в ячейку A1 (или в другую ячейку, но вам придется изменить rng = ws.Range("A1") в коде).

Вернувшись в окно Excel, нажмите Alt + F8, выберите InsertImageFromURL, а затем нажмите Выполнить.

Изображение будет автоматически загружено и отображено в ячейке A1.

Этот код VBA работает в Excel 2016 и более поздних версиях.

Если вы хотите, чтобы изображение автоматически отображалось при вводе ссылки, вы можете назначить макросу Worksheet_Change автоматический запуск.