Как удалить все изображения в диапазоне ячеек?
Если на вашем листе есть несколько изображений, теперь вы хотите удалить некоторые из них в указанном диапазоне, как вы быстро с этим справитесь?
Удалить все изображения в определенном диапазоне ячеек с кодом VBA
Удалите все изображения на листе или всей книге с помощью Kutools for Excel
Удалить все изображения в определенном диапазоне ячеек с кодом VBA
Вот простой код VBA, который поможет вам удалить изображения в выбранном диапазоне, не удаляя их одно за другим, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модуль, и вставьте следующий код в Модули Окно.
Код VBA: удалить все изображения в выбранном диапазоне ячеек:
Sub DeletePic()
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("A5:B8")
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
Внимание: В приведенном выше коде A5: B8 это диапазон, из которого вы хотите удалить изображения, измените его по своему усмотрению.
3, Затем нажмите F5 ключ для запуска этого кода, и изображения в выбранном диапазоне были удалены сразу, см. снимок экрана:
Удалите все изображения на листе или всей книге с помощью Kutools for Excel
Если вам нужно удалить все изображения с листа или книги, Kutools для Excel 's Удалить иллюстрации и объекты Утилита может оказать вам услугу.
| Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Нажмите Кутулс > Удалить > Удалить иллюстрации и объекты, см. снимок экрана:
2. В Удалить иллюстрации и объекты диалоговое окно, отметьте Картинки из Удалить раздел, а затем выберите область, в которой вы хотите удалить изображения из-под заглянуть раздел, см. снимок экрана:
3. Затем нажмите Ok кнопку, и все изображения будут удалены с рабочего листа или всей книги, как вы выбрали.
Нажмите, чтобы загрузить Kutools for Excel и бесплатную пробную версию сейчас!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
