Как преобразовать URL-адреса изображений в реальные изображения в Excel?

  1. Преобразование URL-адресов изображений в реальные изображения с кодом VBA
  2. Инструменты для повышения производительности Excel
  3. Вкладка Office обеспечивает эффективные и удобные вкладки для Office (включая Excel), как Chrome, Firefox и новый IE

Если у вас есть список URL-адресов изображений в столбце A, и теперь вы хотите загрузить соответствующие изображения из URL-адресов и отобразить их в соседнем столбце B, как показано на следующем снимке экрана. В Excel, как вы могли бы быстро и легко извлечь реальные изображения из URL-адресов изображений?

В Excel, как вы могли бы быстро и легко извлечь реальные изображения из URL-адресов изображений

Преобразование URL-адресов изображений в реальные изображения с кодом VBA

Преобразуйте имя файла в фактические изображения сразу в Excel:

С помощью функции импорта изображений в Kutools for Excel вы можете быстро импортировать несколько изображений в соответствующие ячейки на основе имен файлов.

С помощью функции импорта изображений в Kutools for Excel вы можете быстро импортировать несколько изображений в соответствующие ячейки на основе имен файлов

Преобразование URL-адресов изображений в реальные изображения с кодом VBA

Следующий код VBA может помочь вам быстро извлечь фактические изображения из URL-адресов изображений, выполните следующие действия:

1 Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений .

2 Нажмите Вставить > Модуль и вставьте следующий код в окно модуля .

Код VBA: преобразовать URL-адреса изображений в фактические изображения:

Sub URLPictureInsert () 'Update by Extendoffice 20161116 Dim Pshp As Shape Dim xRg Как диапазон Dim xCol As Long При ошибке Возобновить Следующее Application.ScreenUpdating = False Установить Rng = ActiveSheet.Range ("A2: A6") для каждой ячейки в Rng filenam = ячейка ActiveSheet.Pictures.Insert (filenam). Выберите Set Pshp = Selection.ShapeRange.Item (1) Если Pshp - ничто, тогда перейдите в лабораторию xCol = cell.Column + 1 Установите xRg = Cells (cell.Row, xCol) с помощью Pshp .LockAspectRatio = msoFalse .Width = 100 .Height = 100 .Top = xRg.Top + (xRg.Height - .Height) / 2 .Left = xRg.Left + (xRg.Width - .Width) / 2 Завершить с лабораторией: установить Pshp = Ничего диапазона ("A2"). Выберите Next Application.ScreenUpdating = True End Sub

Примечание . В приведенном выше коде A2: A6 - это диапазон ячеек, которые содержат URL-адреса, которые вы хотите извлечь из изображений, а также вы можете изменить размер ширины и высоты изображения в соответствии с вашими потребностями в Width = 100, Height = 100 скриптов.

3 Затем нажмите клавишу F5, чтобы запустить этот код, и все соответствующие изображения были сразу извлечены из URL-адресов изображений в соседний столбец, см. Снимок экрана:

Инструменты для повышения производительности Excel

300+ расширенных функций повысят вашу производительность на 70% и помогут вам выделиться из толпы

Хотели бы вы завершить свою ежедневную работу быстро и идеально? Kutools для Excel приносит вам 300+ крутых и мощных расширенных функций (объединение рабочих книг, суммирование по цвету, разделение содержимого ячеек, дата конвертации и т. д.) для вас.

  • Предназначен для 1500+ рабочих сценариев, помогает решить 80% проблем Excel.
  • Сэкономьте много рабочего времени, оставьте много времени для того, чтобы любить и заботиться о семье и наслаждаться комфортной жизнью сейчас.
  • Ежедневно уменьшайте тысячи нажатий клавиш и клавиатуры, снимайте усталость с глаз и рук.
  • Станьте экспертом по Excel за 3 минуты. Больше не нужно помнить какие-либо болезненные формулы и коды VBA.
  • 60-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег. Бесплатное обновление и поддержка в течение 2 лет. Купить один раз, использовать навсегда.
  • Используется 110 000 элит и более 300 известных компаний.

Вкладка Office обеспечивает эффективные и удобные вкладки для Office (включая Excel), как Chrome, Firefox и новый IE

  • Повышает вашу производительность на 50% при просмотре и редактировании нескольких документов.
  • Сократите сотни щелчков мышью для вас каждый день, попрощайтесь с рукой мыши.
  • Открывайте и создавайте документы в новых вкладках того же окна, а не в новых окнах.
  • Одна секунда, чтобы переключаться между десятками открытых документов!

В Excel, как вы могли бы быстро и легко извлечь реальные изображения из URL-адресов изображений?