покупка
Как легко удалить все изображения или другие объекты в Excel?
Если вы хотите удалить все изображения из Microsoft Excel, выбор каждого изображения и удаление их по одному может занять много времени. Следующие уловки могут облегчить вам работу по удалению всех изображений:
Удалите все изображения на активном листе с помощью команды Перейти
. Перейти к команда может выбрать все изображения на активном листе. Работа будет проще, если мы сможем выделить все изображения перед их удалением.
1, нажмите F5 , чтобы открыть Перейти к диалоговое окно в Excel.
2, Нажмите Особый кнопку и войдите в Перейти к специальному диалоговое окно ， затем проверьте объект вариант. Смотрите скриншот:
3, Затем нажмите OK кнопку, все изображения выбраны на активном листе, нажмите Удалить ключ, чтобы удалить их все.
Ноты:
1. Этот метод выберет все объекты на активном листе, такие как изображения, диаграммы, формы и т. Д. Если вы не хотите удалять другие объекты, вы должны отменить выбор других объектов перед нажатием клавиши Delete.
2. Этот метод удалит только изображения на активном листе.
Удалите все изображения на активном листе с помощью VBA
Использование макроса VBA поможет вам быстро удалить все изображения на активном листе.
1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий макрос в окно модуля.
Sub DeleteAllPics() Dim Pic As Object For Each Pic In ActiveSheet.Pictures Pic.Delete Next Pic End Sub 3, нажмите F5 ключ для запуска этого макроса. И все изображения в активном листе удаляются сразу.
Удалите все изображения на активном листе или всю книгу с помощью Kutools for Excel
Kutools for Excel‘s Удалить иллюстрации и объект может удалить все изображения сразу, независимо от того, находятся ли они на активном листе или во всей книге.
1. Нажмите Кутулс > Удалить> Удалить иллюстрации и объект . Смотрите скриншот:
2. В Удалить иллюстрации и объект диалоговое окно:
(1.) Проверьте Картинки или другой вариант объектов в Удалить .
(2.) Удалите все изображения во всей книге, проверьте Все листы вариант в Заглянуть раздел; при удалении всех изображений на активном листе отметьте Активный лист вариант; при удалении всех изображений на определенных листах проверьте Выбранные листы вариант. Смотрите скриншот:
3. Нажмите ОК. И все изображения были удалены с активного листа, выбранных листов и всей книги по мере необходимости.
Kutools for Excel‘s Удалить иллюстрации и объект может помочь нам удалить все диаграммы, линии, изображения, автофигуры, умные рисунки, текстовые поля, связанные объекты OLE и встроенные объекты OLE на активном листе, выбранном листе или на всех листах текущей книги.
Нажмите, чтобы узнать больше…
Демо: удалите все изображения на активном листе или всю книгу с помощью Kutools for Excel
Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!
Статьи по теме:
- Удалить все диаграммы Рабочие книги
- Быстро удалить все автофигуры
- Быстро удалить все текстовые поля
Excel понятным языком: быстро удалить все картинки с листа
При копировании данных из других файлов или сайтов в таблицу могут попасть скрытые объекты, лишние рисунки, фигуры, диаграммы. Такой мусор, может являться одной из причин большого размера файла, приводить к сильному торможению и долгому сохранению документа.
Чтобы быстро выделить и удалить все с листа, нужно:
На вкладке меню Главная ► Найти и выделить ► Выделить группу ячеек:
В открывшемся окне выбираем вариант Объекты:
Нажимаем ОК.
Нажать клавишу F5, в появившемся окне Переход, нажать кнопку Выделить:
Откроется уже знакомое окно, Выделить группу ячеек, выбираем вариант Объекты, нажимаем OK.
Какой вариант использовать, дело вкуса.
Последний штрих, нажмите DELETE.
Для продвинутых:
Откройте Visual Basic (Alt + F11), копируйте и примените макрос:
Sub DelObject()
For Each i In ActiveSheet.Shapes
i.Delete
Next
End Sub
707 постов 15K подписчика
Подписаться Добавить пост
Правила сообщества
2. Публиковать посты соответствующие тематике сообщества
3. Проявлять уважение к пользователям
4. Не допускается публикация постов с вопросами, ответы на которые легко найти с помощью любого поискового сайта.
По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях
Важно — сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.
Утверждения вроде «пост — отстой», это оскорбление автора и будет наказываться баном.
3 года назад
@ExceLifeHack Для того чтобы быстро удалить все картинки с листа Excel надо выделить одну картинку, нажать CTRL+A и Delete. Всё. И никаких танцев с бубном — удалятся только картинки, остальная информация останется на своих местах.
3 года назад
Автор, чё за х. фигню ты людям рассказываешь?
Главная- Найти- выделить.
А просто Ctrl+G нельзя?
А то растет поколение не знающее что такое Ctrl+C & Ctrl+V — думают что только мышкой можно..
Про Ctrl+A выше уже написали
раскрыть ветку
1 год назад
@ExceLifeHack, большое спасибо, помогло)) Я давным давно открыд xlsm файл в LibreOffice и он нагенерил кучу объектов и таблица стала неимоверно зависать, после удаления объектов стало веселее работать, но один фиг надо всё переносить всё в HTML-формат чтобы работало ещё быстрее))
3 года назад
Пример: копирую некоторый список с сайта в эксель. В начале и в конце каждой строки списка есть неодинаковые эмблемы, которые нужно удалить, т.к. нужен только текст.
Выделяю нажатием лкм одну эмблему, Ctrl+A, Del.
Если в ячейке с эмблемой был текст, он остается.
Слишком просто? Пожалуй.
Похожие посты
1 месяц назад
Как правильно заходить в бухгалтерию
1 месяц назад
Комикс про собеседование
1 месяц назад
Генерируйте формулы для Excel по описанию
Как часто так бывает, хочешь что-то посчитать в Excel, можешь даже представить конечный результат в голове, но подобрать правильную формулу не получается. Знакомо?
Formula Bot — ИИ-инструмент, который облегчает работу с Excel и Google-таблицами.
Каким образом?
Можно просто написать, какие вычисления нужно сделать, и готовая формула у вас. Также сервис может объяснять смысл формул, создавать готовые таблицы по запросу, писать скрипты и многое другое. Работает на русском и английском языках, доступен в виде отдельного сайта или удобного расширения для Excel или Google-таблиц.
Задачи, которые решает Formula Bot:
1. Преобразование текстовых инструкций в формулы
2. Объяснение смысла формул
3. Подсказки по работе в Excel и Google Sheets
4. Создание скриптов без программирования для автоматизации задач
5. Написание SQL-запросов
6. Генерация готовых предзаполненных таблиц
Бесплатно можно генерировать 5 формул в месяц. Безлимитная подписка обойдётся в $7.
Хотите узнавать первыми о полезных сервисах с искусственным интеллектом для работы, учебы и облегчения жизни? Подпишитесь на мой телеграм канал НейроProfit, там я рассказываю, как можно использовать нейросети для бизнеса
Показать полностью
Поддержать
5 месяцев назад
Вам часто перезванивали ?
Тут в одной теме HR жаловался, что кандидаты после собеседований ему не звонят и просто молчком сливаются.
У меня вопрос к соискателям, а потенциальные работодатели Вам часто перезванивали ?
Я начал работать еще в школе, за 24 года трудового стажа, если собеседование заканчивалось фразами
Мы сообщим Вам о своём решении.
То никакого продолжения коммуникации не было. ни «извините, мы нашли другого кандидата«, ни «руководитель передумал брать кого-то на эту вакансию» и пр.
А вот если всё заканчивалось чем-то таким:
Вы можете выйти завтра на работу ?
Когда Вы можете приступить к работе ?
В понедельник к 10 утра сможете приехать ?
То меня брали без лишних вопросов и созвонов.
Показать полностью 1
7 месяцев назад
Поддержка важна
Показать полностью 1
8 месяцев назад
Таблицы в MS Office, МойОфис, Р7 (он же ONLYOFFICE), LibreOffice
Маленькое сравнение работы MS Office, МойОфис, Р7 (он же ONLYOFFICE), LibreOffice.
- MS Office 2016. Исходный файл создавался в данной программе
- МойОфис Сборка 54 Версия 2.3 Н (надеюсь правильно переписал)
- Р7-Офис. Профессиональный (десктопная версия) 7.3.0.159 (x64 exe)
- LibreOffice 7.5.3.2 (Х86_64)
Р7-Офис — платный, ONLYOFFICE. Поведение одинаковое.
Оригиналы скринов и тестовый файл на облаке. Файл и скрины будут пополняться по мере моего интереса, но это не точно.
Сравнение работы видно на скринах.
- Обработка ЛИНЕЙН.
- LibreOffice — лучший результат, МойОфис — худший результат
2. Форматирование ячеек
- Р7-Офис. — лучший результат, МойОфис — худший результат
3. Построение диаграмм
- LibreOffice — лучший результат, МойОфис — худший результат
- Р7-Офис — есть проблемы с отображением и редактированием.
- LibreOffice — единственный выдал верный результат,
- МойОфис — не посчитал, и честно об этом сказал (типа радуйтесь)
- Р7-Офис — якобы посчитал, но при смене исходных данных подобен поведению МойОфис
5. Отдельной необъятной (и пока особо не известной) темой стоит программирование под Р7 и МойОфис. Помолчу о встроенных оболочках (о мёртвых или хорошо или ничего. Редактор VBA это верх совершенства по сравнению с ними), но вот пример самого кода одного и того же действия с официальной страницы программы (ONLYOFFICE) показывает всю «прелесть» «отечественного» продукта.
Про написание такого макроса (поиска первой пустой ячейки снизу столбца А) на Lua (МойОфис) я не скажу, ибо вэбинар «методология обучения основам Lua, которая позволяет быстро научиться созданию макросов в редакторах МойОфис.» буквально взорвал мой мозг количеством воды и отсутствием конкретики. Впрочем желающие могут погрузиться на канал МойОфис и постигнуть всё и вся. Дерзайте.
О программировании под LibreOffice, точнее возможности частичного использования макросов на VBA, писал ранее.
Так что решайте сами надо ли оно вам. Я просто хотел чуть чуть сравнить работу.
УПД И почему взяты эти три альтернативы? Потому что МойОфис, AlterOffice (тот же LO, но платный и с закрытойскачкой) и Р7 входит в единый реестр российского ПО (желающие смотрим тут ) , кроме того МойОфис имеет сертификат ФСТЭК т.е. по сути является единственным вариантом для гос.учреждений с секретностью Ж(
Показать полностью 5
9 месяцев назад
Обоснуй
9 месяцев назад
Кадровики, в чем смысл накопления трудовых в ОК?
Одна моя знакомая устроилась на работу. Хотела по совместительству, но ей непосредственная начальница сказала, что нельзя. На вопрос, почему, ответила, что лучше более высокого начальника даже не спрашивать, «у них не принято». В бухгалтерии, однако, возразили, что можно, и даже помогли написать правильное заявление. «Более высокий» начальник, увидев это заявление, рассвирепел, устроил истерику, заявление порвал, бухгалтершу уволил. Теперь выясняется, что совмещать все же можно, но при условии, что трудовая лежит здесь, а не на старой работе.
Смысл этого нам неясен, вопросов, как вы помните, задавать нельзя.
Быть может, кто-то объяснит, в чем выгода собирания трудовых книжек?
10 месяцев назад
Вы недооформились! (Снова о кадровиках)
Устроился на новую работу. В первый день на оформлении выдали кучу документов на подпись: и согласие на обработку персональных данных, и заявление на перечисление зарплаты на карту (с реквизитами), и трудовой договор, и ознакомление во всех журналах со всеми регламентами и инструктажами. Пол дня всё это заняло.
День на третий видит меня кадровичка в коридоре и издалека на всю контору кричит:
К: VanyaDW, подождите, подойдите ко мне! Вы недооформились!
Я, естественно, в непонятках, спрашиваю, что это значит?
К: Вы не предоставили (!) заявление с банковскими реквизитами, бухгалтерия теперь не знает, куда вам зарплату перечислять!
Я: Что значит «я не предоставил»?
А меня разозлило так.
Я: Вы серьезно думаете, что мне дали бланк, а я его принципиально заполнять не стал? Чтобы предприятие мне зарплату не могло заплатить? Может быть, это вы просто предоставленный документ потеряли?
К: Ой, ну может быть, сотрудница просто не приложила! Вы только так не нервничайте!
Нравится мне этот подход: не «Мы — курицы, ваш документ потеряли, извините. «, а «Вы недооформились!».
1 год назад
Ответ на пост «Кадровики-формалисты на страже уровня зарплаты»
Год назад уволился по сокращению отдела, бюджетная организация. 21 год проработал. Уволился с радостью, 40 с лишним офицального трудового стажа, из них 15 лет Крайнего Севера. Пенсионер МВД с 1998 г. Никуда не устроился и не собираюсь. Что бы там не пели терешковы и им подобные, ранняя заработанная неплохая пенсия — это прекрасно.
При увольнении кадры сделали всё правильно, но в бухгалтерии молодая расчетчица насчитала выплаты по сокращению в полтора раза меньше, чем положено по ТК. Устные претензии бухгалтерия не приняла — «программа так считает».
Ранее я писал жалобы своему руководителю про график работы, оплату сверхурочных, несвоевременную выплату ночных. Вопросы решались положительно для меня. Написал и на этот раз, выплатили всё как положено.
Недавно звонок от приятеля, там работает. В ходе разговора сказал, что зам. (тот вообще под 30 лет там проработал) вспоминал меня «добрым» словом, мол, был такой редиска-жалобщик, и уволить его до сокращения никак не получалось, и премии лишить никак.
Мне было приятно.
1 год назад
Если человек не подошёл к нам в компанию, так , что , он не человек?
Я тот самый сотрудник отдела кадров, который всегда перезванивает кандидатам, которые не подошли на открытую вакансию. Делать мне это приходится либо по дороге домой, либо уже дома, так как в кабинете или в здании офиса я это делать не могу. Видите ли, политика очень известной компании не позволяет себе такие «слабости», а я прекрасно помню себя, когда пропускала неплохие варианты из-за того, что надеялась на звонок из более хорошего места.
Поддержать
1 год назад
Ответ Faruga в «Хобби при собеседовании»
А я как-то проходила собеседование в одну фирму. Уже пообщалась с двумя руководителями, определили, что меня надо в другой отдел, пообщалась с руководителем этого отдела. В конце решили направить меня к генеральному директору, тоже пообщаться познакомиться. Не помню что он у меня спрашивал, как-то просто непринуждённо поговорили, а потом он говорит что всегда задаёт соискателям один вопрос: кубический корень из 27. Я конечно ответила) Работа если что не тесно связана с математикой. Видимо так он проверяет насколько человек свой. В эту компанию меня взяли, но я в итоге осталась на предыдущей работе, потому что когда там узнали, что я ухожу, смогли уговорить остаться.
1 год назад
Скрипт для экселя- ссылка в тайминг
Всем добрый день.
Хочу обратиться к Пикабу-разуму в вопросе Офиса.
Для размещения поста на Пикабу имеется заранее подготовленная таблица в Эксель.
первая колонка- тайминг новости, вторая колонка — тело новости, третья колонка — ссылка на новость, что является обязательным в теге «политика».
в сильно упрощенном виде это выглядит банально:
До недавних нововведений в редакторе постов Пикабу, CSV сохраненный из Экселя втаскивался в редактор через скрипт в обозревателе. И получался хорошо известный некоторым вариант
НО в свете все известных событий (прогресс не остановить!) скрипт отвалился и судя по консилиуму специалистов воскрешению не подлежит, методологически так сказать.
Отсюда простой вопрос: можно ли скриптом или как-то иначе автоматизировать в Экселе или в ОпенОфисе вставку ссылок в тайминги?
То есть мы из 3 колонок должны получить две.
Для интересующихся — в обычном финальном Пузыре 60-90 новостей.
Вставлять руками можно, но ЛЛ меня и так гнобит
Показать полностью 2
Поддержать
1 год назад
Ответ на пост «Работничек»
Дают задачу для доработки бекенда. Там простой фикс, говорили они. Думаешь, сейчас сделаешь за 20 минут и готово, но там:
1. Название задачи «Нужно починить сайт»
2. Есть сваггер, последнее обновление год назад
3. Схема запросов, ответов и описание никто не актуализировал
4. Описание задачи максимально абстрактное, очевидно, писал менеджер
5. Разработчик, который писал код, уволился полгода назад
6. Менеджер ушёл в отпуск
7. Дедлайн через пару дней в пятницу
8. У тебя испытательный срок
Поддержать
1 год назад
Работничек
1 год назад
EXCEL — ЭТИ СТРАШНЫЕ МАКРОСЫ – НАЧАЛО
Я решил с двух ног ворваться в тему макросов.
Кто-то про них слышал, кто-то даже видел, отдельные сверхразумы их даже использовали. Сегодня будет ознакомительный пост: что это вообще такое и как с этим начать работать. Обратите внимание – этот пост тех, кто не знает, что такое макросы и никогда с ними не работал
Первым делом нужно включить вкладку «Разработчик». По умолчанию в Excel ее спрятали, чтобы не взорвать мозг юзерам. Идем в Параметры -> Настройка ленты -> Основные вкладки -> Разработчик (поставить галочку).
Теперь идем в эту вкладку, нажимаем «Записать макрос» выбираем имя жмакаем «ок». Все, теперь любые действия в Excel надежным образом записываются.
Давайте теперь что-то сделаем. На пример поменяем заливку ячейки А1, в ячейку A2 напишем значение «Мама, я программист», а в ячейке А3 пропишем формулу текущей даты «=Сегодня()»
Останавливаем запись макроса. Нажимаем иконку «Макросы», выбираем наш макрос как мы его обозвали, нажимаем кнопку «изменить».
Появляется окно Microsoft Visual Basic for Applications. Кстати оно также вызывается комбинацией клавиш (Alt + F11) У меня почему-то вызывается только левым Altом, а правым нет, видимо намекая на то что для написания макросов лучше иметь 2 руки (хотя я и одной нажать могу). Появился редактор языка VBA – это язык, который написан специально под офис чтобы на нем писать макросы. В основном окне видим саму эту запись, которую автоматически сделал Excel.
Sub Макрос2()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range(«A2»).Select
ActiveCell.FormulaR1C1 = «Мама, я программист»
Range(«A3»).Select
ActiveCell.FormulaR1C1 = «=TODAY()»
Range(«A4»).Select
End Sub
Такой инструмент автоматической записи называется макрорекордер, по началу он хорошо помогает вообще понять, что происходит. Теперь давайте разберемся как выглядит записанный макрос (записанный макрос у автора этой статьи может различаться с записанным макросом у вас поскольку форма записи с макроса зависит от последовательности нажатий, способах ввода информации и криворукости пользователь, в любом случае автор этой статьи снимает с себя всю ответственность за любые действия которые привели или могут привести к изменению годовых отчетов, искажению пространственное – временного континуума и прочих непредвиденных вымираний.)
Теперь давайте разбираться что делает этот макрос
Sub Макрос2()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
(Весь этот кусок от начала говорит нам о том, что с тем элементом что был выделен ранее происходит некоторое дерьмо, в том числе изменение цвета. Вот там, где Color = 255. Все остальное это параметры заливки, которые по итогу не менялись, но макрорекордер решил их тоже записать, на всякий. Это связано с внутренними особенностями работы excel как я понял. Вообще привыкайте к тому что макрорекордер пишет много того что потом вообще можно удалить. Конструкция With – End With позволяет делать несколько действий с одним объектом, на пример выше берется объект Selection.Interior, то есть фон выбранной области и ряду параметров этой заливки назначаются конкретные значения. То есть With нужен для облегчения записи кода, чтобы Selection.Interior не писать вначале каждой строчки.
Range(«A2»).Select –выделяем ячейку «A2»
ActiveCell.FormulaR1C1 = «Мама, я программист» – пишем в ячейку значение
Range(«A3»).Select – выделяем ячейку «А3»
ActiveCell.FormulaR1C1 = «=TODAY()» –пишем в ячейку формулу
Range(«A4»).Select – зачем то выделяем ячейку А4.
End Sub
Теперь при создании нового листа и запуске этого макроса он будет делать все то же самое.
Тут стоит понимать, что половину того что записал макрос можно опустить, так как нам важен результат, а не путь по которому к этому результату пришли, а макрорекордер записывает именно путь. На пример вместо всей конструкции With можно записать
так как мы точно знаем, что хотим поменять только цвет в ячейке А1. Также вместо того чтобы выделять ячейку, а потом в активной ячейке писать формулу можно сразу записать нужное значение в ячейку
Range(“A2”).Value = ”Мама, я программист”
или писать формулу как в третей ячейке
С формулами и значениями лично мне не понятно, как excel их интерпретирует, но в макрорекордре он записывает любой ввод в ячейку как ввод формулы. Благо лично у меня при написании макросов не возникает необходимости писать формулы в ячейки. На пример вместо вставки формулы как это было выше можно написать Range(“A3”).Value = Date(), тогда макрос вставит сразу текущую дату в ячейку как значение.
Опытные макроделы пишут макросы сразу без их записи макрорекордером, но это полезный инструмент для самостоятельного изучения при написании макросов: если не знаешь, что как делается в VBА то запускаешь и делаешь, потом смотришь что он там написал.
Теперь давайте напишем какой ни будь полезный макрос, я буду писать строчки и как можно подробнее их комментировать. Комментарии от программы отделяются символом «‘», он ставится вначале комментария. Прошу учесть, что я самоучка и многого не знаю, и просто напишу так ка делаю это сам, возможно есть более изящные решения. Напоминаю, что это просто ознакомительный опус для тех, кто не в зуб ногой.
Sub Colorization()
‘начало нашего макроса и его название
Dim x As Integer
‘объявляем переменную х типа интеджер, это тип для целых чисел от -32 768 до 32 767 (2 байта),
‘она нам нужна для перебора ячеек
For x = 1 To ActiveSheet.UsedRange.Rows.Count
‘перебираем х от 1 до конца использованной части листа, то есть не весь лист, а там где есть данные.
‘Тут цикл For повторяется от этой строки до строки Next x, которая прописана ниже
If Cells(x, 1).Value = «красный» Then Cells(x, 1).Interior.Color = RGB(255, 0, 0)
‘если значение в ячейке равно «красный» то закрашиваем ячейку в красный цвет. Функция If выполняет часть
‘после Then если условие между If и Then верно. Так как у нас необходимое действие занимает одну
‘строку можно писать в таком виде, если же действий несколько применяется конструкция:
‘If … Then
‘…
‘…
‘End If
If Cells(x, 1).Value = «зеленый» Then Cells(x, 1).Interior.Color = RGB(0, 255, 0)
‘как выше только в зеленый цвет
If Cells(x, 1).Value = «синий» Then Cells(x, 1).Interior.Color = RGB(0, 0, 255)
‘в синий цвет
Next x ‘берем следующее значение х, конец цикла For, который мы начали выше
End Sub ‘конец макроса
Как работает этот макрос: берет первый столбец, сначала 1 ячейку, смотрит что в ней написано, и если это равно «красный», «зеленый» или «синий», то красит фон ячейки в этот цвет, если нет по пропускает. Потом берет вторую и т. д. до конца активной части текущего листа.
Для проверки работы макроса нам нужен лист, где в первом столбце будут случайным образом прописаны цвета «красный», «зеленый», «синий». Запускаем макрос – когда он отработает ячейки будут раскрашены:
Некоторые пояснения: если не писать просто Cells то макрос будет делать все в активном листе активного окна. Но макрос может идти и в другие листы, файлы, даже в другие приложения офиса, но об этом не сегодня.
После того, как макрос поработал с документом, не удастся кнопкой «назад» вернуть все изменения, так что, если данные важны, то сохраняйте их отдельно и макросом работайте с копией, макросы беспощадны.
Итак, на этом пока все. Надеюсь теперь те, кто никогда не видел макросов получат о них начальное представление. Дальше буду писать про более практичное применение.
покупка
Если на вашем листе есть несколько изображений, теперь вы хотите удалить некоторые из них в указанном диапазоне, как вы быстро с этим справитесь?
Delete all pictures from a worksheet / multiple sheets / whole workbook:
With Kutools for Excel‘s Delete Illustrations & Objects feature, you can quickly delete all pictures or other objects you need from active worksheet, multiple sheets or the whole worbkook as quickly as possible.
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download and free trial Now!
Удалить все изображения в определенном диапазоне ячеек с кодом 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, пожалуйста, сделайте следующее:
1. Нажмите Кутулс > Удалить > Удалить иллюстрации и объекты, см. снимок экрана:
2. В Удалить иллюстрации и объекты диалоговое окно, отметьте Картинки из Удалить раздел, а затем выберите область, в которой вы хотите удалить изображения из-под заглянуть раздел, см. снимок экрана:
3. Затем нажмите Ok кнопку, и все изображения будут удалены с рабочего листа или всей книги, как вы выбрали.
Purchase
Rich Knowledge Base
ExtendOffice.com boasts a collection of over 5,300 articles and tutorials, offering a wealth of tips, tricks, and solutions for both common and complex issues in Excel , Word , and Outlook . Continuously Updated
Our articles are constantly growing, being updated, and refined to align with the latest Office versions, ensuring that our website visitors have access to more streamlined and efficient solutions.
Advanced Tools for Enhancing Office With a user-first philosophy, we’ve meticulously developed four sets of compact toolkits, each packed with comprehensive and powerful features. Now, let us lighten the load for your work!
| Kutools for Excel Offers over 300 advanced features to help you quickly execute complex tasks, unleashing creativity and efficiency. |
Kutools for Outlook Provides over 100 functions in Outlook to boost communication efficiency and secure your information. |
Enhance functionalities of Office These powerful tools are designed to streamline your complex tasks within Office applications, saving time and enhancing your overall experience.
| Kutools for Word Provides more than 100 features designed to streamline both complex and batch tasks in Word. |
Office Tab Adds a tabbed interface to Office, making document management as simple and smooth as using a web browser. |
Join Our Dynamic Community: Forums and Regular Tutorials Update
Support Comment/Forum
Whether you encounter a problem or simply need advice, our community forums, email service, and the comment sections under each article are great places to seek assistance.
Feature Tutorials Update
Regularly updated tutorials are available to help you understand and fully utilize the features offered by Kutools plugins.
Kutools for Excel
—Elevate your data handling to new heights, unlocking your creativity and efficiency.
Advantages
| �� | Rich Features : | Over 300 powerful features , effortlessly handling 1500+ work scenarios . |
| ✅ | User-Friendly : | Provides an intuitive interface and straightforward operations, and supports 44 languages of the world. |
| �� | Stable and Efficient : | Efficiently and stably processes up to 100 million cells of data. |
| ��️ | Secure and Reliable : | Supports the Undo feature, ensuring the safety of user’s data. |
| �� | Continuous Updates and Support : | Continually updates and improves the toolset, providing excellent technical support. |
| �� | Free Trail : | 30-day free trial with full features. |
Popular features
| Navigation Pane : | Workbook & Sheet pane | AutoText pane | Name Manager pane | Column list pane | Advanced Find and Replace pane |
| Advanced Drop-Down List : | Multi-select Drop-down List | Drop-down List with Check Boxes | Searable Drop-down List | Colored Drop-down List | Picture Drop-down List. |
| 60+ Advanced Charts : | Gantt Chart | Horizontal Waterfall Chart | Speedometer Chart | Multi Layer Column Chart | Target and Actual Chart. |
| Text Tools : | Add Text | Extract Text | Remove by position | Change Case | Remove Spaces | Remove Characters. |
| Super Lookup : | Lookup Accross Multiple Sheets | Lookup and Sum | One-to-many Lookup | Multi-condition Lookup. |
| Combine and Split : | Combine multiple sheet,workbooks | Merge Tables | Split Workbook | Split Data. |
Office Tab
—Brings browser-like tabbed editing to your Office documents!
Office Tab enhances your Microsoft Office experience by enabling tabbed browsing, editing, and management of applications. Effortlessly open and navigate multiple documents or files in a single, organized tabbed window, similar to using browsers like Chrome, Edge, and Firefox.
- �� Read, edit, and manage multiple files within a single tabs for efficient workflow.
- �� Open, save, and close all files with ease — A single click does it all.
- �� Color-Code your tabs for quick identification and organized access to files.
- ��️ Categorize and manage files group by group for optimal organization.
- �� Experience all features with 30-day free trial — No Cost, Full Access!
Kutools for Outlook
—Boost your email management efficiency and simplify daily tasks!
Advantages
| �� | Rich Features : | 100+ extension features for Outlook. |
| ✅ | Ease of Operation : | Effortlessly user-friendly for both advanced and beginner users, requires no learning curve for immediate use. |
| �� | Improved Efficiency : | Provides a suite of tools that automate and expedite various tasks, reducing the time spent on routine email operations. |
| �� | Free Trail : | Extremely long trial duration, 60-day free trial . |
| �� | 44 languages : | Supports 44 languages , just like Microsoft Outlook. |
| �� | Continuous Updates and Support : | Continually updates and improves the toolset, providing excellent technical support. |
Popular features
| Magic Interface : | Emoji Pane(Abundant Vivid Emojis) | AutoText pane | Tabs Integration(All open tasks in one tab) |
| Email Automation : | Out of Office(Auto Reply) | Auto send recurring emails | Auto CC/BCC | Auto Forward Emails | Attachments missing reminder . |
| Email Attachments : | Save Attachments | Detach Attachments | Compress Attachments | Attachment Manager | Copy Attachment names. |
| Batch Email Processing : | Batch Recall Emails | Batch Reply Emails | Batch Save Emails | Batch Forward Emails | Batch Remove Duplicate Emails. |
| Contacts : | Remove duplicate contacts | Add contacts from message | Add contacts to group | Split contact group . |
| Key Features : | Email Statistics | Send multiple emails separately | Reply emails with attachments | Important Message Reminder. |
Kutools for Word
—Crafting documents has never been easier!
Advantages
| �� | Rich Features : | 100+ extension features for Word. |
| ⏰ | Time-Saving : | Includes a lot of features designed to save time, such as one-click actions for commonly performed tasks. |
| �� | Boost Productivity : | Batch tools streamline document editing and management. |
| �� | Free Trail : | Extremely long trial duration, 60-day free trial . |
| �� | Reliable Support and Updates : | Continually updates and improves the toolset, providing excellent technical support. |
Popular features
| Document Toolkit : | Split Document | Merge multiple files | Convert multiple docx to doc / pdf | Batch Find and Replace | Batch Printing. |
| Image & Objects : | Batch Insert Images | Batch Remove Images | Batch Resize Images | Insert Checkbox | Insert Radio Button | Insert QR code. |
| Table Manipulation : | Convert Table to List | Insert Diagonal Header | Transpose Table | Delete Columns / Rows of Table |
| One-Click Removal : | Remove Paragraph Spacing | Remove Horizontal Line | Remove Extra Spaces Between Words | Remove All Comments | Clear Header Lines. |
| Additional Amazing Features : | Convert Equations to Images | Convert Images to Equations | Spell Out Numbers | AutoText Pane . |
Elevate Your Skills in Excel, Outlook, and Word with Our Rich Article Library
�� Excel Articles:(3000+)
Over 3000 articles related to Excel, covering everything from basic operations to advanced techniques. Use our quick search feature to easily find articles on any topic, such as «find duplicate» or «fi du,» to quickly list relevant articles.
�� Outlook Tips:(1200+)
If you want to improve your efficiency or solve specific problems in Outlook, our collection of over 1200 articles is your ideal resource. From email management to scheduling, find valuable guidance quickly with our search feature.
�� Word Guides:(300+)
Word users can find a wealth of useful resources here as well. Whether you’re writing documents, designing layouts, or handling text formatting, the 300+ useful articles provide the necessary help and inspiration for you.
�� Additional Resources
Explore our detailed guides on 498 Excel functions with ample examples, more than 300 common Excel formulas, and comprehensive beginner tutorials for Outlook, which can help you enhance your proficiency, streamline your workflow.
Years of Experience
- ExtendOffice, made by a team of more than 20 expert professionals, offers you four great products designed to make your work easier.
| 220,000+ Happy Users |
80,000+ Businesses’ Trust |
30-60 Days Free Trial |
| 60-day Money Back Guarantee |
2 Years Free Upgrades |
24 × 7 Customer Support |
Latest Updates & FAQs & Feature Tutorials
Latest Updates
- Release notes — Kutools for Excel
- Release notes — Kutools for Outlook
- Release notes — Kutools for Word
- Release notes — Office Tab
Frequently Ask Questions
- �� Retrieve license information
- ❌ License invalid
- ��♂️ Haven’t received license
- ❓ More FAQs.
Feature Tutorials
- �� Kutools for Excel
- �� Kutools for Outlook
- �� Kutools for Word
- ��️ Office Tab