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

Большинству из нас не составит труда вставить изображение, хранящееся на компьютере, в рабочий лист. Выполните следующие действия:

1. В рабочем листе щелкните место, куда вы хотите вставить изображение.

2. Затем нажмите Вставка > Изображения > Это устройство. См. снимок экрана:

3. В появившемся окне Вставка изображения откройте папку с изображениями и удерживайте клавишу Ctrl, чтобы выбрать нужные изображения (см. снимок экрана):

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

Если у вас установлен Excel 2013 или более поздняя версия, вы можете вставлять изображения прямо из Интернета или OneDrive. Просто выполните следующие шаги:

1. В рабочем листе щелкните место, куда вы хотите Вставить изображение.

2. Затем нажмите Вставка > Изображения > Изображения из Интернета. См. снимок экрана:

3. Откроется следующее окно. В разделе Изображения из Интернета введите в текстовое поле то, что вы ищете, и нажмите клавишу Enter. Все подходящие изображения будут найдены мгновенно — см. снимок экрана:

4. Затем выберите нужные изображения и нажмите кнопку Вставить. После вставки изображений вы можете изменить их размер или расположение по своему усмотрению.

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

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

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

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

Код VBA: вставка нескольких изображений с учетом размера ячеек

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Затем нажмите клавишу F5, чтобы запустить этот код. В окне Открытие выберите папку с изображениями, отметьте нужные изображения и нажмите кнопку Открыть. Все выбранные изображения будут вставлены в выделенный диапазон с учётом размера ячеек. См. снимок экрана:

Если вы не знакомы с кодом VBA, воспользуйтесь мощной функцией Импортировать изображения из Kutools для Excel. Благодаря этой удобной функции вы сможете быстро и легко импортировать несколько изображений прямо в ячейки.

1. Нажмите KUTOOLS PLUS > Импорт/экспорт > Импортировать изображения, см. снимок экрана:

2. В появившемся диалоговом окне Импортировать изображения выполните следующие действия:

• Укажите порядок изображений в раскрывающемся списке Порядок импорта, вы можете выбрать Заполнить по столбцу, затем по строкеили Заполнить по строке, затем по столбцу;
• Затем нажмите кнопку Добавить, чтобы выбрать Файлы изображений или папку, в которую нужно добавить изображения, в Список изображений;
• Нажмите кнопку Размер импорта. В диалоговом окне Размер импортируемого изображения выберите параметр Соответствие размеру ячейки.
• 

3. После завершения настройки нажмите кнопку Импорт, после чего откроется окно Импортировать изображения. Укажите ячейки назначения, в которые нужно импортировать изображения (см. снимок экрана):

4. Затем нажмите кнопку ОК. Все выбранные изображения будут вставлены с учётом размеров указанных ячеек, как показано на снимке экрана ниже:

Следующий код VBA поможет вам быстро вставить несколько изображений в соответствии с их именами. Выполните следующие действия:

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.

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

Код VBA: Вставка нескольких изображений по совпадению их имён

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Примечание: в приведённом выше коде вы можете настроить высоту и ширину изображения в строках «.ShapeRange.Height = 60» и «.ShapeRange.Width = 60» в соответствии со своими требованиями.

3. Затем нажмите клавишу F5, чтобы запустить этот код. В открывшемся окне выберите папку с изображениями, которые вы хотите вставить (см. снимок экрана):

4. Затем нажмите кнопку OK. После этого откроется диалоговое окно: «Пожалуйста, выберите ячейки, содержащие имя изображения» (см. снимок экрана).

5. Продолжайте нажимать кнопку OK. Появится ещё одно диалоговое окно: «Пожалуйста, выберите ячейки, в которые вы хотите поместить изображения» (см. снимок экрана).

6. Наконец, нажмите кнопку OK — и изображения сразу же вставятся в ячейки на основе их имён (см. снимок экрана):

Если у вас установлен Kutools для Excel, с помощью его функции Сопоставить импортированные изображения вы сможете быстро и легко вставлять изображения по их имени.

1. Нажмите KUTOOLS PLUS > Импорт/экспорт > Сопоставить импортированные изображения (см. снимок экрана):

2. В появившемся диалоговом окне Match Import Picture выполните следующие действия:

• Укажите порядок изображений в раскрывающемся списке Порядок импорта; вы можете выбрать Заполнить по столбцу, затем по строкеили Заполнить по строке, затем по столбцу;
• Затем в текстовом поле Диапазон сопоставлениявыберите имена изображений, по которым вы хотите выполнить Вставить изображение;
• Затем нажмите кнопку Добавить, чтобы выбрать Файлы изображений или папку, в которую нужно добавить изображения, в Список изображений;
• Далее укажите размер изображений. Нажмите кнопку Размер импорта, и в диалоговом окне Размер импортируемого изображения выберите нужный размер.
• 

3. После завершения настройки нажмите кнопку Импорт. В появившемся диалоговом окне Сопоставить импортированные изображения (см. снимок экрана) выберите одну ячейку или диапазон ячеек для размещения изображений:

4. Затем нажмите кнопку OK, и все изображения, имена которых совпадают со значениями ячеек, будут вставлены (см. снимок экрана):

Используйте приведённый ниже код VBA, чтобы вставить изображения по списку URL-адресов.

1. Сначала измените размер соседней ячейки, в которую планируете вставить изображения.

2. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.

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

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

Sub URLPictureInsert()
'Updateby Extendoffice
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

Примечания: в приведённом выше коде A2:A5 — это диапазон ячеек с URL-адресами изображений. Замените ссылки на ячейки в соответствии со своими задачами.

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

Kutools для Excel предлагает потрясающую функцию — Вставка изображений по пути (URL). Благодаря этому инструменту нужные изображения мгновенно и без усилий загружаются прямо по указанным URL-адресам.

1. Нажмите Kutools > Вставка > Вставить изображения из пути (URL) (см. снимок экрана):

2. В появившемся диалоговом окне Вставить изображения из пути (URL) выполните следующие настройки:

• Выберите список ячеек с URL-адресами и диапазон ячеек, куда вы хотите поместить изображения;
• Укажите нужный размер изображений в разделе Размер изображения.
• 

3. Затем нажмите кнопку Ok, и все изображения будут извлечены из URL-адресов (см. снимок экрана):

Вы можете использовать следующий код VBA для вставки изображений по указанному пути к файлу.

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.

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

Код VBA: Вставить изображение из диапазона Путь к файлу

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. После вставки приведённого выше кода нажмите клавишу F5, чтобы запустить его. Появится диалоговое окно: «Пожалуйста, выберите ячейки с путём к файлу» (см. снимок экрана).

4. Затем нажмите кнопку OK, и все изображения на основе пути к файлу отобразятся в следующем столбце, как показано на снимке экрана:

Kutools для Excel’s Вставить изображения из пути (URL) также позволяет отображать соответствующие изображения из пути к файлу.

1. Нажмите Kutools > Вставка > Вставить изображения из пути (URL). В появившемся диалоговом окне укажите диапазон «Путь к файлу», диапазон для вывода изображений и размер изображения в соответствии с вашими потребностями (см. снимки экрана):

2. После настройки параметров нажмите кнопку Ok, и изображения сразу же вставятся в выбранные ячейки (см. снимок экрана):

Совет: иногда вы можете заметить, что изображение перекрывает область данных листа, как показано на снимке экрана ниже. Это происходит потому, что изображение слишком большое и не подстраивается автоматически под размер поля верхнего или нижнего колонтитула.

Чтобы решить эту проблему, просто измените размер изображения в верхнем или нижнем колонтитуле, выполнив следующие шаги:

1. Щёлкните в разделе верхнего или нижнего колонтитула, где находится изображение, а затем выберите команду Формат рисунка на вкладке Конструктор (см. снимок экрана):

2. В диалоговом окне Формат рисунка на вкладке Размер настройте размер изображения так, чтобы оно помещалось в поле верхнего или нижнего колонтитула (см. снимок экрана):

3. Затем нажмите кнопку OK, и вы получите желаемый результат.

1. Откройте лист, на который нужно добавить фоновое изображение.

2. Затем нажмите Макет страницы > Фон, см. снимок экрана:

3. В появившемся окне Вставка рисунков выберите нужное изображение с компьютера, веб-сайта или OneDrive — см. снимок экрана:

4. Теперь изображение вставлено на лист в качестве фона, как показано на снимке экрана ниже:

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

1. Нажмите Вставка > Фигуры и выберите прямоугольник (см. снимок экрана):

2. Затем нарисуйте на активном листе фигуру нужного размера.

3. После создания фигуры на ленте появится вкладка Работа с рисунками. Затем нажмите Формат > Контур фигуры > Нет контура (см. снимок экрана):

4. Далее щелкните правой кнопкой мыши по фигуре и в контекстном меню выберите пункт Формат фигуры, см. снимок экрана:

5. В раскрывшейся области Формат фигуры на вкладке Заливка и линии выполните следующие действия:

• В разделе Заливкавыберите параметр Заливка рисунком или текстурой;
• Нажмите кнопку Вставитьв разделе Источник рисункаи выберите нужное изображение;
• Затем настройте прозрачность изображения по своему вкусу в разделе Прозрачность.
• 

6. После этого фигура, заполненная изображением, будет выглядеть как фоновое изображение — как показано на снимке экрана выше.

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

Оба описанных выше метода имеют свои ограничения: первый не позволяет изменять прозрачность изображения, а второй не разрешает ввод текста в ячейки, находящиеся внутри области изображения. Чтобы решить эти проблемы, функция Kutools для Excel — Вставить водяной знак — придёт вам на помощь.

1. Нажмите Kutools > Вставка > Вставить водяной знак, см. снимок экрана:

2. В появившемся диалоговом окне Вставить водяной знак выберите Изображение водяного знака и нажмите кнопку Выбрать изображение, чтобы указать нужное изображение. Затем задайте масштаб и установите флажок «Осветлить» (см. снимок экрана):

3. Затем нажмите кнопку ОК, и изображение будет вставлено на лист в качестве фона.

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

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

2. Затем нажмите Главная > Копировать > Копировать как рисунок, см. снимок экрана:

3. В появившемся диалоговом окне Копировать рисунок в разделе Рисунок выберите пункт Формат, см. снимок экрана:

4. Затем нажмите кнопку ОК, после чего достаточно нажать сочетание клавиш Ctrl + V, чтобы вставить изображение в любое место книги.

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

Сначала нужно добавить инструмент Камера на Ленту, а затем использовать его.

1. Нажмите значок Настроить панель быстрого доступа и выберите пункт Другие команды, см. снимок экрана:

2. В открывшемся диалоговом окне Параметры Excel выполните следующие действия:

• Выберите пункт Все командыв раскрывающемся списке Выберите команды из;
• Затем прокрутите список и выберите пункт Камерав списке;
• Затем нажмите кнопку Добавить, чтобы добавить этот инструмент на Панель быстрого доступа;
• Наконец, нажмите кнопку ОК, чтобы закрыть это диалоговое окно.
• 

3. Теперь инструмент Камера отображается на ленте — см. снимок экрана:

4. Затем выделите диапазон ячеек, для которого нужно создать изображение.

5. Затем нажмите инструмент Камера, перейдите на нужный лист и щелкните в любом месте — диапазон данных будет вставлен как изображение, как показано на демонстрации ниже:

Если у вас установлен Kutools для Excel, вы можете с помощью его функции Библиотека ресурсов сохранить выделенные данные в Библиотеку ресурсов и в дальнейшем использовать их как изображение или текст по своему усмотрению.

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

2. Затем нажмите Kutools > Навигация, см. снимок экрана:

3. В раскрывшейся области Навигация нажмите значок Библиотека ресурсов, а затем — значок Добавить выбранный контент в автотекст, см. снимок экрана:

4. В диалоговом окне Добавить в автотекст укажите имя для этого элемента и выберите группу, в которую нужно добавить элемент. См. снимок экрана:

5. Затем нажмите кнопку Добавить, чтобы добавить элемент в область Библиотека ресурсов. Если вы хотите вставить этот диапазон как изображение, просто щелкните по ячейке, куда нужно поместить изображение, найдите сохранённый элемент в области Библиотека ресурсов и выберите в выпадающем списке элемента пункт Вставить как > Изображение (EMF). После этого диапазон данных будет вставлен на лист в виде изображения — см. снимки экрана:

Обычно в Excel для решения этой задачи можно создать динамический именованный диапазон и использовать связанный с ним рисунок.

1. Сначала создайте два столбца: один — с названиями товаров, другой — с соответствующими изображениями (см. снимок экрана):

2. Затем создайте раскрывающийся список для значений ячеек. Щёлкните нужную ячейку, чтобы отобразить раскрывающийся список, и выберите Данные > Проверка данных > Проверка данных. См. снимок экрана:

3. В появившемся диалоговом окне Проверка данных на вкладке Параметры выберите Список в поле Разрешить и укажите ячейки, из которых следует создать раскрывающийся список, в поле Источник, см. снимок экрана:

4. Нажмите ОК, и раскрывающийся список со значениями ячеек будет создан. Выберите один элемент из раскрывающегося списка (см. снимок экрана):

5. Затем нажмите Формулы > Присвоить имя, см. снимок экрана:

6. В диалоговом окне Новое имя выполните следующие действия:

• Введите имя myimage в текстовое поле Имя;
• Затем скопируйте и вставьте эту формулу:=INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2)в текстовое поле «Ссылается на».

  

  Примечание: В приведённой выше формуле:

  • Sheet11!$A$2:$B$6: это лист и диапазон, содержащие значения и изображения, которые вы хотите использовать;
  • Sheet11!$E$2: это ячейка на листе, в которой вы создали раскрывающийся список;
  • Sheet11!$A$2:$A$6: это список ячеек, на основе которого вы создали раскрывающийся список;
  • Переменная 2 — это номер столбца, содержащего изображения. Если ваши изображения находятся в столбце C, укажите 3.

7. Затем нажмите ОК и скопируйте соответствующее изображение в ячейку F2 на основе значения ячейки E2 из исходного диапазона (см. снимок экрана):

8. Далее выберите изображение в ячейке F2 и введите в строку формул следующую формулу: =myimage (myimage — это имя ячейки, созданное на шаге 6). См. снимок экрана:

9. После ввода формулы нажмите клавишу Enter — и как только вы выберете элемент из раскрывающегося списка, соответствующее изображение отобразится немедленно. См. снимок экрана:

Описанный выше метод может оказаться слишком сложным для большинства пользователей. Поэтому я хочу представить вам удобную функцию — Раскрывающийся список с изображениями из Kutools для Excel, с помощью которой можно создать несколько раскрывающихся списков с соответствующими изображениями всего за несколько кликов.

1. Сначала на листе создайте два столбца: с названиями товаров и соответствующими изображениями.

2. Затем нажмите Kutools > Раскрывающийся список > Раскрывающийся список с изображениями, см. снимок экрана:

3. В диалоговом окне Раскрывающийся список с изображениями, если вы уже создали столбцы со значениями ячеек и изображениями, пропустите шаг 1, затем выберите исходный диапазон данных и изображений, а также область размещения списка (см. снимок экрана):

4. Затем нажмите кнопку ОК, и раскрывающиеся списки с изображениями появятся в выбранных ячейках. Как только вы выберете элемент из такого списка, соответствующее изображение отобразится немедленно — см. демонстрацию ниже:

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

1. Нажмите Файл > Сохранить как. В окне Сохранить как укажите папку для экспортируемых файлов и выберите тип Веб-страница (*.htm; *.html) в списке Тип файла. См. снимок экрана:

2. Затем нажмите кнопку Сохранить, перейдите в указанную папку — вы увидите два файла: один в формате HTML, а другой — папку с изображениями, диаграммами и другими объектами из книги. См. снимок экрана:

3. После этого вы сможете перетащить изображения в любую другую папку по своему усмотрению.

Примечание: при использовании функции Сохранить как каждое изображение сохраняется дважды — в меньшем и большем размере, так что вы всегда сможете выбрать вариант с более высоким разрешением, если это необходимо.

Чтобы сохранить все изображения из файла Excel, просто измените расширение файла на .RAR. Выполните следующие действия:

1. Измените расширение файла xlsx на rar, как показано на снимке экрана ниже:

2. Затем распакуйте файл — вы увидите три папки и один файл внутри, как показано на снимке экрана:

3. Затем откройте папку xl, а после — папку media. Именно здесь хранятся все изображения без дубликатов (см. снимок экрана):

Если у вас установлен Kutools для Excel, с помощью его функции Экспорт диаграммы можно быстро экспортировать выбранные объекты — такие как изображения, диаграммы или фигуры — в нужный формат изображений.

1. Нажмите KUTOOLS PLUS > Импорт/экспорт > Экспорт диаграммы, см. снимок экрана:

2. В диалоговом окне Экспорт диаграммы выполните следующие действия:

• Выберите пункт Изображенияв раскрывающемся списке Типы;
• Укажите папку для сохранения экспортируемых изображений;
• Затем нажмите раскрывающийся список рядом с полем Формат экспорта и выберите нужный формат для ваших изображений.
• 

3. Наконец, нажмите кнопку ОК, и все изображения из текущей книги сохранятся в указанной вами папке (см. снимок экрана):

Чтобы удалить изображения с текущего листа, воспользуйтесь приведённым ниже кодом VBA. Выполните следующие действия:

1. Активируйте лист, на котором находятся изображения, подлежащие удалению.

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

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

Код VBA: Удалить все изображения из Текущий лист

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Затем нажмите клавишу F5, чтобы выполнить этот код — и все изображения на активном листе будут удалены мгновенно.

Если вам нужно удалить изображения только из определённого диапазона ячеек, вот ещё один простой код, который придёт на помощь.

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

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

Код VBA: Удалить изображения из диапазона ячеек

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Примечание: в приведённом выше коде B4:C6 — это диапазон, из которого нужно удалить изображения.

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

Если у вас установлен Kutools для Excel, с помощью его функции Удалить изображения и объекты вы можете быстро удалить изображения с текущего листа, с выбранных листов или со всей книги.

1. Нажмите Kutools > Удалить > Удалить изображения и объекты. См. снимок экрана:

2. В открывшемся диалоговом окне Удалить изображения и объекты установите флажок напротив пункта Изображения в разделе Удалить, а затем укажите область, из которой нужно удалить изображения, в разделе Искать в. См. снимок экрана:

3. Затем нажмите кнопку ОК, и все изображения будут удалены с листа, выбранных листов или всей книги в соответствии с вашими указаниями.