Как загрузить внешние изображения в Excel?

У меня есть таблица со столбцом ссылок (URL) для изображений. Я хочу загрузить связанные изображения в следующую ячейку.

Например:

A1 содержит

 http://example.com/image.jpg

Я хочу загрузить изображение в B1 .

Как мне это сделать?

Вы не можете загружать изображения «в» ячейку Excel. Объекты изображения находятся на слое над ячейками.

Вы можете использовать макрос для прокрутки ячеек и поместить изображение в соответствие с ячейкой в ​​следующем столбце. Например, выберите все URL-адреса изображений, а затем выполните

 For Each cel In Selection cel.Offset(0, 1).Select ActiveSheet.Pictures.Insert(cel.Value).Select Next cel 

Однако изображения не будут находиться в ячейках, но их верхние левые углы будут выровнены с верхними левыми углами ячейки рядом с URL.

Хотя изображение не может быть загружено буквально в ячейку, можно загрузить изображение в комментарий ячейки с помощью VBA. Следующий код с этого сайта определяет функцию, которая может использоваться на листе для вставки изображения в комментарий.

  Option Explicit Function InsertCommentImage(title As String, absoluteFileName As String) Dim commentBox As Comment ' Clear any comments before attempting to add them. .ActiveCell.ClearComments ' Define the comment as a local variable and assign the file name from the ' cellAddress input parameter to the comment of a cell. Set commentBox = Application.ActiveCell.AddComment With commentBox .Text Text:="" With .Shape .Fill.UserPicture (absoluteFileName) .ScaleHeight 3, msoFalse, msoScaleFromTopLeft .ScaleWidth 2.4, msoFalse, msoScaleFromTopLeft End With ' Set the visible to True when you always want the image displayed, and ' to False when you want it displayed only when you click on the cell. .Visible = False End With InsertCommentImage = title End Function 

Эта функция InsertCommentImage имеет два аргумента: заголовок, который будет отображаться в ячейке, в которую вводится функция, и ссылку на местоположение и имя изображения.

Изображение может быть из локального файла …

Введите описание изображения здесь

… или URL …

Введите описание изображения здесь

… или ссылку на местоположение файла или веб-ссылку.

Введите описание изображения здесь

Чтобы установить эту функцию в книгу со своими ссылками, сначала выберите вкладку «Разработчик» на главной ленте, а затем выберите «Visual Basic» (первая кнопка слева от вкладки «Разработчик»). Появится окно интегрированной среды разработки VBA (IDE).

Затем убедитесь, что «VBAProject (название вашей книги)» выделено в панели «Project – VBA Project» (левая верхняя панель).

В главном меню VBA IDE выберите «Вставить / Модуль» и вставьте код функции в открытую область большого кода.

Закройте окно VBA IDE и сохраните книгу. Затем вы можете использовать функцию в листе со ссылками.

  • Как сказать Excel не оценивать формулу?
  • Вы можете обнаружить ошибку в этой функции excel?
  • Как изменить разделитель при копировании из Excel и вставить в блокнот
  • Ошибки округления Excel
  • Как применить функцию ко всем значениям в выбранных ячейках?
  • Изменение имени дня Excel на другие языки
  • Восстановление файла Excel
  • MS excel - присвоение «категорий» на основе ключевых слов
  • В Excel, как вы автоматически заполняете до следующего значения?
  • Когда использовать Ctrl + Shift + Enter и когда использовать Enter в Excel?
  • Как подсчитать посещаемость в Excel?
  • Давайте будем гением компьютера.