Как да изтрия всички снимки в диапазон от клетки?
Ако в работния ви лист има множество снимки, сега искате да изтриете някои от тях в определен диапазон, как да се справите с това бързо?
Изтрийте всички снимки в определен диапазон от клетки с VBA код
Изтрийте всички снимки в работен лист или цяла работна книга с Kutools за Excel
Изтрийте всички снимки в определен диапазон от клетки с VBA код
Ето един прост VBA код, който може да ви помогне да изтриете изображенията в избрания диапазон, без да ги изтривате едно по едно, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модул, и поставете следния код в Модули Window.
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 за Excel
Ако трябва да изтриете всички изображения от работен лист или работна книга, Kutools за Excels Изтриване на илюстрации и обекти помощната програма може да ви направи услуга.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Щракнете Kutools > Изтрий > Изтриване на илюстрации и обекти, вижте екранна снимка:
2. В Изтриване на илюстрации и обекти диалогов прозорец, проверете Снимки от Изтрий и след това изберете обхвата, от който искате да изтриете снимките погледни вътре раздел, вижте екранна снимка:
3, След това кликнете Ok и всички снимки ще бъдат изтрити от работния лист или цялата работна книга, както сте избрали.
Щракнете, за да изтеглите Kutools за Excel и безплатен пробен период сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!