Как вставить картинки в Excel с помощью макроса

Макросы в Excel могут выполнять такие функции, как вставка изображений, копирование данных из одной ячейки в другую и т. Д. Чтобы написать эффективный макрос для вставки изображений в Excel, вам необходимо использовать цикл.

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

Используйте макрос для вставки изображений в Excel

Чтобы использовать макрос для вставки изображений, вы должны начать со следующих предположений: имена изображений находятся в столбце B, начиная с B2; вы хотите вставить каждую картинку в другое место; где вставить изображение, идентифицированное в столбце B, находится в столбце C, начиная с C2.

Теперь введите следующий код:

 Sub Picture ()
Dim picname As String
Dim pasteAt As Integer
Dim lThisRow As Long
lThisRow = 2
Делать Пока (Клетки (lThisRow, 2) "")
«Диапазон» («A6»). Выберите «Здесь изображение будет вставлено
pasteAt = Клетки (lThisRow, 3)
Ячейки (pasteAt, 1). Выберите 'Это где изображение будет вставлено
'Dim picname As String
'picname = Range ("B6")' Это имя картинки
picname = Cells (lThisRow, 2) 'Это имя картинки
ActiveSheet.Pictures.Insert ("C: \ Users \ vbayat \ Мои документы \ vidabayat \ re-market \" & picname & ".jpg"). Выберите 'Путь к месту хранения изображений
«» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «»»
Это меняет картину
«» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «» «»»
С выбором
'.Left = Range ("A6"). Слева
'.Top = Range ("A6"). Top
.Left = Cells (pasteAt, 1) .Left
.Top = Клетки (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Конец с
lThisRow = lThisRow + 1
петля
Range ( "A10"). Выберите
Application.ScreenUpdating = True
Exit Sub
ErrNoPhoto:
MsgBox "Невозможно найти фотографию" 'Отображает окно сообщения, если изображение не найдено
Exit Sub
Range ( "B20"). Выберите
End Sub