Инструкции по вставке ссылок на изображения в 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 = Ничего не установлено ws = Ничего не установлено rng ​​= Ничего не установлено End Sub

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

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

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

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

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