Як вставити зображення в Excel за допомогою макросу

Макроси в Excel можуть виконувати такі функції, як вставляння зображень, копіювання даних з однієї комірки в іншу тощо. Для того, щоб написати ефективний макрос для вставлення зображень у Excel, потрібно використовувати цикл

Цей розділ поширених запитань допоможуть вам застосувати цей макрос до електронної таблиці, щоб відобразити зображення.

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

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

Тепер введіть наступний код:

 Sub Picture ()
Dim picname As String
Dim pasteAt As Integer
Dim lThisRow As Long
lThisRow = 2
Доки (клітинки (lThisRow, 2) "")
'Діапазон ("A6"). Виберіть "Це місце, де буде вставлено зображення."
pasteAt = Cells (lThisRow, 3)
Клітинки (pasteAt, 1). Виберіть 'Тут буде вставлено зображення
'Dim picname As String
'picname = Діапазон ("B6")' Це ім'я зображення
picname = Cells (lThisRow, 2) 'Це ім'я зображення
ActiveSheet.Pictures.Insert ("C: Користувачі: vbayat Мої документи" "" "" "" "" "" "" "" "" & "picname &" .jpg ").
'' '' '' '' '' '' '' '' '' '' '' '' '' '\ T '' '' '
'Це змінює розмір зображення
'' '' '' '' '' '' '' '' '' '' '' '' '' '\ T '' '' '
З вибором
Лівий = Діапазон ("A6")
".Top = Діапазон (" A6 ")
.Left = Клітинки (pasteAt, 1)
.Top = Клітинки (pasteAt, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Завершити
lThisRow = lThisRow + 1
Петля
Діапазон ("A10")
Application.ScreenUpdating = True
Вийти з підп
ErrNoPhoto:
MsgBox "Неможливо знайти фото" "Відображається вікно повідомлення, якщо зображення не знайдено
Вийти з підп
Діапазон ("B20")
End Sub