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

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

2, Затем нажмите Вставить > Картинки > Это устройство, см. снимок экрана:

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

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

Если у вас есть Excel 2013 или более поздние версии, вы можете вставлять изображения из Интернета или с One Drive, сделайте следующее:

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, здесь вы можете использовать функцию мощности - Импорт изображений of Kutools for Excel. С помощью этой полезной функции вы можете быстро и легко импортировать несколько изображений в ячейки.

После установки Kutools for Excel, выполните следующие действия:

1. Нажмите Кутулс Плюс > Импорт Экспорт > Импорт изображений, см. снимок экрана:

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

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

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

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

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

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

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

Код 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 for Excel, С его Сопоставить Импорт изображений функция, вы можете быстро и легко вставлять изображения на основе имен изображений.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Нажмите Кутулс Плюс > Импорт Экспорт > Сопоставить Импорт изображений, см. снимок экрана:

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

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

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

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

Пожалуйста, примените следующий код VBA для вставки изображений на основе списка URL-адресов.

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

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

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 for Excel имеет удивительную особенность - Вставить изображения из пути (URL). С помощью этой утилиты соответствующие изображения будут быстро и легко извлечены из URL-адресов.

После установки Kutools for Excel, выполните следующие действия:

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

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

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

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

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

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

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 for ExcelАвтора Вставить изображения из пути (URL) Функция также может помочь вам отобразить относительные изображения из пути к файлу.

После установки Kutools for Excel, пожалуйста, сделайте так:

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

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

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

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

1. Щелкните раздел верхнего или нижнего колонтитула, где находится изображение, а затем щелкните Формат изображения под Проект вкладку, см. снимок экрана:

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

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

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

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

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

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

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

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

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

3. После рисования формы Инструменты рисования вкладка отображается на ленте, а затем щелкните Формат > Форма > Нет, см. снимок экрана:

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

5. В расширенном Форма форматирования панель, под Заливка и линия tab выполните следующие операции:

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

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

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

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

После установки Kutools for Excel, пожалуйста, сделайте так:

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

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

3, Затем нажмите Ok Кнопка, изображение было вставлено в рабочий лист в качестве фонового изображения.

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

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

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

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

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

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

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

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

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

• Выберите Все команды из Выберите команды из падать;
• Затем прокрутите, чтобы выбрать камера из списка;
• А затем нажмите Добавить кнопку, чтобы добавить этот инструмент в Настройка панели быстрого доступа;
• Наконец, нажмите OK чтобы закрыть это диалоговое окно.
• 

3, И камера инструмент отображен на ленте, см. снимок экрана:

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

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

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

После установки Kutools for Excel, пожалуйста, сделайте так:

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

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

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

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

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

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

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

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

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

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

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. А затем нажмите OK кнопку, затем скопируйте и вставьте соответствующее изображение на основе значения ячейки в E2 из исходного диапазона в ячейку F2, см. снимок экрана:

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

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

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

После установки Kutools for Excel, выполните следующие действия:

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

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

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

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

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

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

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

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

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

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

1. Измените расширение файла XLSX в редкий как показано ниже:

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

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

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

После установки Kutools for Excel, выполните следующие действия:

1. Нажмите Кутулс Плюс > Импорт Экспорт > Экспорт графики, см. снимок экрана:

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

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

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

Чтобы удалить изображения с текущего листа, вам может помочь приведенный ниже код 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 for Excel, С его Удалить иллюстрации и объекты функция, вы можете быстро удалить изображения с листа, некоторых выбранных листов или всей книги.

После установки Kutools for Excel, выполните следующие действия:

1. Нажмите Кутулс > Удалить > Удалить иллюстрации и объекты, см. снимок экрана:

2. В открытом Удалить иллюстрации и объекты диалоговое окно, отметьте Картинки из Удалить раздел, а затем укажите область, в которой вы хотите удалить изображения из-под заглянуть раздел, см. снимок экрана:

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