Иногда в Excel вы могли столкнуться с проблемой, когда вместо изображений вам предоставлялись URL-адреса изображений. Если мы хотим получить изображения вручную, то это может занять много времени. Итак, нам нужен более быстрый процесс для его завершения.
Эта инструкция поможет вам понять, как мы можем преобразовать URL-адреса изображений в реальные изображения в Excel. Мы можем выполнить эту задачу с помощью приложения VBA, поскольку она не может быть выполнена непосредственно в Excel.
Преобразуйте URL-адреса изображений в реальные изображения в Excel
Здесь мы сначала создадим модуль VBA, а затем запустим его для вставки изображений на лист. Давайте рассмотрим простую процедуру преобразования URL-адресов изображений в реальные изображения в Excel с помощью приложения VBA.
Шаг 1
Давайте рассмотрим лист Excel, который содержит список URL-адресов изображений, похожих на приведенное ниже изображение.
Теперь щелкните правой кнопкой мыши на названии листа и выберите Просмотреть код, чтобы открыть приложение VBA.
- Щелкните правой кнопкой мыши> Просмотреть код
- Затем в приложении VBA нажмите «Вставить» и выберите «Модуль».
- Вставка> Модуль
Шаг 2
Затем введите указанную ниже программу в текстовое поле, как показано на рисунке ниже.
Программа
Sub URLPictureInsert()
'Updated By Nirmal
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub
Шаг 3
Теперь сохраните лист как рабочую книгу с поддержкой макросов и нажмите F5, чтобы запустить код, и изображения появятся автоматически, как показано на рисунке ниже.
Заключение
В этом руководстве мы использовали простой пример, чтобы продемонстрировать, как вы можете преобразовать URL-адреса mage в реальные изображения в Excel.