Удаление объектов excel макросом

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

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

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

Удалите все изображения или другие объекты на активном рабочем листе / всей книге с помощью Kutools for 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.) Удалите все изображения во всей книге, проверьте Все листы вариант в Заглянуть раздел; при удалении всех изображений на активном листе отметьте Активный лист вариант; при удалении всех изображений на определенных листах проверьте Выбранные листы вариант. Смотрите скриншот:

Бесплатная загрузка Kutools for Excel от Yhao сейчас!

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

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

Бесплатная загрузка Kutools for Excel от Yhao сейчас!

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

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

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

Лучшие инструменты для работы в офисе

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

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

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

офисный дно

Источник

Добавить комментарий

Введите свой комментарий…

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Gravatar

E-mail (обязательно) (Адрес никогда не будет опубликован)

Имя (обязательно)

Сайт

Логотип WordPress.com


Для комментария используется ваша учётная запись WordPress.com.
( Выход / 
Изменить )

Фотография Twitter


Для комментария используется ваша учётная запись Twitter.
( Выход / 
Изменить )

Фотография Facebook


Для комментария используется ваша учётная запись Facebook.
( Выход / 
Изменить )

Отмена

Connecting to %s

Уведомлять меня о новых комментариях по почте.

Уведомлять меня о новых записях по почте.

Источник

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

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

… Команда «Перейти» позволяет выбрать все изображения на активном листе. Работа будет проще, если мы сможем выделить все изображения перед их удалением.

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

2. Нажмите кнопку «Пользовательский» и войдите в диалоговое окно «Перейти к настройке» ，, затем выберите параметр «Объект». Смотрите скриншот:

3. Затем нажмите кнопку «ОК», все изображения будут выбраны на активном листе, нажмите кнопку «Удалить», чтобы удалить их все.

Примечания:

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

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

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

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

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

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

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

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

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

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

2. В диалоговом окне «Удалить графику и объект:

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

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

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

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

Источник
 

Люди, помогите!! Вот в такой вид выгружаются данные в excel. Как можно избавится от элементов или объектов (как правильно не знаю) . Т.е. лист нужно привести в нормальный «редактируемый» вид. А эти «окошки»  мешают. (см.пример). СПАСИБО!!!!
 

Может как-то таким макросом?  
Sub DelShapes()  
Dim MyShape As Shape  
For Each MyShape In ActiveWorkbook.Worksheets(«Ëèñò1»).Shapes  
   MyShape.Delete  
Next  
End Sub
 

Serge

Пользователь

Сообщений: 11308
Регистрация: 01.01.1970

В 2007 эксе так: Вкладка «Разработчик»-«Элементы управления»-«Режим конструктора»-F5-Выделить-Объекты-Delete.
 

Извините, коряво скопировался текст.  
Вот:  
Sub DelShapes()  
Dim MyShape As Shape  
For Each MyShape In ActiveWorkbook.Worksheets(«Лист1»).Shapes  
   MyShape.Delete  
Next  
End Sub
 

Спасибо! Этим макросом работает! Хотела «повесить» его на кнопку. Почему то после выполнени, кнопкА «слетает». Почему на кнопку?, потому что решила каждый раз выгружать в этот «лист-шаблон».  
А вот. excel у меня 2003. поэтому: Вкладка «Разработчик»-……..    , так сделать не могу. Но хотелось бы.  
Может есть еще какой-нибудь способ?  
СПАСИБО!
 

sva

Пользователь

Сообщений: 1027
Регистрация: 23.12.2012

В 2003:  
Правка-Перейти-Выделить-Объекты-Delete
 

Юрий М

Модератор

Сообщений: 60588
Регистрация: 14.09.2012

Контакты см. в профиле

Создайте настраиваемую кнопку на какой-нибудь панели инструментов и назначьте ей свой макрос.
 

Кнопка «слетает» потому как кнопка это тоже объект Shapes, который надо удалить.    
Возможное решение — держать макрос в личной книге макросов (personal.xls) и запускать его оттуда.  
Можно повесить макрос из личной книги на кнопку панели инструментов (или на ленте)
 

Таня

Гость

#9

22.09.2010 14:41:49

СПАСИБО,  ВСЕМ !!! Все поняла! Теперь все работает всеми предложенными и желаемыми способами!!
Источник

Удаление объекта макросом

Автор Bomont, 09.08.2011, 12:13

« назад — далее »

Доброго времени суток!

Подскажите пожалуйста, имеется макрос копирования листа в новую книгу. После копирования надо удалить закрашенный прямоугольник в новой книге. Я делаю это строчкой

   ActiveSheet.Shapes.Range(Array(«Rounded Rectangle 5»)).Select
   Selection.Delete

Но вот в чем беда, при использовании макроса на разных компах — когда происходит копирование листа, у этого прямоугольника то имя Rounded Rectangle 5 то имя Rounded Rectangle 3. То есть точно неизвестно. Как это можно сделать, подскажите пожалуйста.

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

For Each i In ActiveSheet.Shapes
        i.Delete
      Next

кроме графиков

Очень признателен!

Если прямоугольник один-единственный, то можно так:

ActiveSheet.Shapes(1).Delete

Или, если нужно удалить только прямоугольники, то:

Sub ertert()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
   If shp.Name Like "*Rectangle*" Then shp.Delete
Next shp
End Sub

Сработало! Спасибо большое!

  • Профессиональные приемы работы в Microsoft Excel
  • ►
    Обмен опытом
  • ►
    Microsoft Excel
  • ►
    Удаление объекта макросом

Источник

Like this post? Please share to your friends:
  • Удаление нулевых значений excel
  • Удаление несколько строк в excel
  • Удаление столбца в excel горячая клавиша
  • Удаление нескольких строк в excel
  • Удаление ссылок в word горячие клавиши