Как преобразовать URL-адреса изображений в реальные изображения в Excel?
Если у вас есть список URL-адресов изображений в столбце A, и теперь вы хотите загрузить соответствующие изображения из URL-адресов и отобразить их в соседнем столбце B, как показано на скриншоте слева. Как в Excel быстро и легко извлечь реальные изображения из URL-адресов изображений?
Преобразование URL-адресов изображений в реальные изображения с помощью кода VBA
Преобразование URL-адресов изображений в фактические изображения с помощью Kutools for Excel
Преобразование URL-адресов изображений в реальные изображения с помощью кода VBA
Следующий код VBA может помочь вам быстро извлечь фактические изображения из URL-адресов изображений, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.
Код VBA: преобразование URL-адресов изображений в реальные изображения:
Sub URLPictureInsert()
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
Ноты:
- 1. В приведенном выше коде A2: A5 - это диапазон ячеек, содержащий URL-адреса, из которых вы хотите извлечь изображения, вы должны изменить ссылки на ячейки в соответствии с вашими потребностями.
- 2. С помощью этого кода вы не можете указать размер извлекаемых изображений по своему усмотрению.
- 3. Приведенный выше код может извлекать только актуальные изображения в ячейки помимо столбца URL-адреса, вы не можете указать ячейку для вывода изображений.
- 4. Вы должны иметь некоторые базовые знания кода. Если какой-либо символ пропущен или неверен, код не будет выполнен успешно.
3, Затем нажмите F5 ключ для запуска этого кода, и все соответствующие изображения были извлечены из URL-адресов изображений в соседний столбец сразу, а изображения будут помещены в центр ваших конкретных ячеек, см. снимок экрана:
Преобразование URL-адресов изображений в фактические изображения с помощью Kutools for Excel
Если вы не знакомы с кодом VBA или хотите устранить ограничение приведенного выше кода, Kutools for Excel's Путь к форме вставки изображений (URL) Функция может помочь вам быстро вставить соответствующие изображения на основе URL-адресов или определенного пути на вашем компьютере, как показано ниже. Нажмите, чтобы загрузить Kutools for Excel!
После установки Kutools for Excel, пожалуйста, сделайте так:
1. Нажмите Кутулс > Вставить > Путь к форме вставки изображений (URL), в появившемся диалоговом окне установите следующие операции, см. снимки экрана:
2, Затем нажмите Ok кнопку, и изображения будут извлечены из URL-адресов, см. снимок экрана:
Нажмите, чтобы загрузить и бесплатную пробную версию Kutools for Excel прямо сейчас!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!