Удаление изображений с помощью Excel VBA

Как удалить все изображения на листе Excel 2007? Хороший пример рабочего кода.


  Уменьшить фигуру как Excel.shapeFor Каждую фигуру в ActiveSheet.Shapes shape.DeleteNext  

Самый простой способ:

  Activesheet.Pictures.Delete  

или

  Activesheet.Shapes.Delete  

В зависимости от типа объекта ваше изображение.

Удаляет все изображения с большей эффективностью, чем повторяется (цикл) и удаляется их одно за другим.

1


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

  В моем случае этот код был  полезно, потому что мой лист был заполнен прозрачными формами типа msoAutoShape, которые я считал изображениями.  Итак, Activesheet.Pictures.Delete не работал.  

Вы можете найти все типы фигур по этой ссылке: http://msdn.microsoft.com/en-us/library/aa432678(v= office.12) .aspx



Как легко удалить все изображения или другие объекты в Excel?

Как легко удалить все изображения или другие объекты в Excel?

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

Удалите все изображения на активном листе с помощью команды «Перейти к»

Удалить все изображения на активном листе с помощью VBA

Удалить все изображения или другие объекты на активном листе/всей книге с помощью Kutools for Excel


Удалить все изображения на активном листе с помощью команды «Перейти к»

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

1 . Нажмите клавишу F5 , чтобы открыть диалоговое окно Перейти в Excel.

2 . Нажмите кнопку Special и войдите в диалоговое окно Перейти к Special , затем установите флажок Object . См. Снимок экрана:

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

1. Этот метод выберет все объекты на активном листе, такие как изображения, диаграммы, фигуры и т. Д. Если вы не хотите удалять другие объекты, вы должны отменить выбор других объектов перед нажатием клавиши Delete.

2. Этот метод удалит только изображения на активном листе.


Удалите все изображения на активном листе с помощью VBA.

Использование макроса VBA поможет вам быстро удалить все изображения на активном листе.

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

2 . Щелкните Insert > Module и вставьте следующий макрос в окно модуля.

 Sub DeleteAllPics () Dim Pic As ObjectFor  Каждый рисунок в ActiveSheet.PicturesPic.DeleteNext PicEnd Sub 

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


Удалите все изображения на активном листе или всей книге с помощью Kutools for Excel

Kutools for Excel Удалить иллюстрации & Object может удалить все изображения немедленно, независимо от того, находятся они на активном листе или во всей книге.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно, без ограничений в течение 30 дней .
Перейти к загрузке
Бесплатная пробная версия 30 дней Приобретение
PayPal/MyCommerce

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

2 . В диалоговом окне Удалить иллюстрации и объект :

(1.) Установите флажок Изображения или другие объекты в Удалить .

(2.) Удалите все изображения во всей книге, установите флажок Все листы в Посмотрите в раздел; при удалении всех изображений на активном листе отметьте опцию Активный лист ; при удалении всех изображений на определенных листах установите флажок Выбранные листы . Смотрите снимок экрана:

Скачать бесплатно Kutools for Excel прямо сейчас!

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

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

Скачать бесплатно Kutools for Excel прямо сейчас!


Демо: удалить все изображения в активный рабочий лист или вся книга с помощью Kutools for Excel

Kutools for Excel : с более чем 300 удобными Excel надстройки, попробуйте бесплатно без ограничений в течение 30 дней. Загрузить и бесплатную пробную версию прямо сейчас!

Статьи по теме:

  • Удалить все диаграммы Рабочие книги
  • Быстро удалить все автофигуры
  • Быстро удалить все текстовые поля

Лучшие инструменты для повышения производительности Office

Kutools for Excel решает большинство ваших проблем и повышает производительность на 80%

  • Повторное использование : быстро вставляйте сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки паролем; Создавайте список рассылки и отправляйте электронные письма …
  • Панель супер формул (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон …
  • Объединить ячейки/строки/столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки/столбцы … Предотвратить дублирование ячеек; Сравнить диапазоны …
  • Выбрать повторяющиеся или уникальные строки; Выберите пустые строки (все ячейки пусты); Супер поиск и нечеткий поиск во многих книгах; Случайный выбор …
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставка маркеров, флажков и прочего …
  • Извлечь текст, добавить текст, удалить по положению, удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии …
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенная сортировка по месяцам/неделям/дням, частоте и другим параметрам; Специальный фильтр жирным шрифтом, курсивом …
  • Объединить рабочие книги и рабочие таблицы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF …
  • Группировка сводной таблицы по номеру недели, дню недели и другим параметрам … Показывать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки с формулой/именем … ->

  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Подробнее .. . Бесплатная загрузка … Купить …

Вкладка «Office». Интерфейс с вкладками добавлен в Office, что значительно упростит вашу работу.

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint , Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Подробнее … Скачать бесплатно … Покупка …
  • 66 комментариев
  • Войти
Вы гость
или отправьте сообщение в качестве гостя, но ваше сообщение не будет опубликовано автоматически.
Загрузка комментария … Комментарий будет обновлен после 00:00.
Оцените статью
clickpad.ru
Добавить комментарий