Как убрать все объекты в 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. Нажмите Кутулс > Удалить> Удалить иллюстрации и объект . Смотрите скриншот:

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

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

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

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

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

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

Если вы хотите удалить все изображения из 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

Мы можем использовать встроенную функцию Excel чтобы сделать это.

Но не забывайте, что с помощью этой функции мы удалим их сразу со всех листов. А не с какого-то отдельного.

Пошаговая инструкция:

• Щелкните «Главная»;

• Далее — «Сведения»;

• Далее — «Проверка книги»;

• Жмем «Проверить документ»;

• И просто нажимаем «Проверить»;

• Далее найдите Далее найдите «Скрытые строки и столбцы»;

• И просто удалите их.

Готово! Таким образом, все скрытые элементы будут удалены. Вот результат проверки после удаления:

Я думаю вы уже столкнулись с этим, но все равно скажу: перед проверкой документа таким образом — сохраните его. Даже если вы этого не сделаете, Excel автоматически предложит сделать это:

Кроме того, что мы рассматриваем в этой статье, с помощью этой проверки можно определить кучу других полезных вещей.

Обязательно сделайте резервную копию файла перед тем, как будете использовать этот способ. Так как изменения, которые вы сделаете — невозможно откатить.

Однако, этот способ не подойдет вам, если нужно удалить скрытые элементы только с одного листа. А другие не трогать.

В таком случае мы можем создать свою функцию с помощью Visual Basic.

С помощью Visual Basic

В этом разделе статьи мы создадим несколько функций (для разных целей) с помощью Visual Basic.

Начнём!

Удаляем скрытые элементы из выделенного диапазона ячеек

Мы можем создать функцию которая удалит скрытые элементы со всего листа, но я считаю что это глупая затея.

Самый приемлемый вариант — сделать так, чтобы функция удаляла скрытые элементы из выделенного диапазона. А там уже можно выделить и весь лист (CTRL + A), если это необходимо.

Код для удаления скрытых строк Visual Basic:

Sub DeleteHiddenRows() 
Dim sht As Worksheet 
Dim LastRow 
Set sht = ActiveSheet 
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row   

For i = LastRow To 1 Step -1 
If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete 
Next   

End Sub

Lastrow — этой переменной присваивается номер последней строки в выделенном диапазоне.

Далее он проверяет скрыта или нет эта строка и так далее.

Если скрыта — удаляется.

Код для удаления скрытых столбиков Visual Basic:

Sub DeleteHiddenColumns() 
Dim sht As Worksheet 
Dim LastCol as Integer 
Set sht = ActiveSheet 
LastCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column   

For i = LastCol To 1 Step -1 
If Columns(i).Hidden = True Then Columns(i).EntireColumn.Delete 
Next   

End Sub

Работает точно так же, только для столбиков.

А этот код работает сразу для столбиков и строк:

Sub DeleteHiddenRowsColumns() 
Dim sht As Worksheet 
Dim LastRow as Integer 
Dim LastCol as Integer 
Set sht = ActiveSheet 
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row 
LastCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column   

For i = LastRow To 1 Step -1 
If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete 
Next   

For i = LastCol To 1 Step -1 
If Columns(i).Hidden = True Then Columns(i).EntireColumn.Delete 
Next   
End Sub

Это, по сути, объединенные коды, которые мы уже рассмотрели.

Тут работает 2 цикла — сначала проверяются и удаляются скрытые строки, а потом столбики.

Код нужно вставить в Visual Basic -> правой кнопкой на любой лист -> «Insert» -> «Module».

Удаляем скрытые элементы из определенного диапазона ячеек

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

В таком случае, мы можем указать, в каком диапазоне удалять скрытые элементы и сделать это прямо в функции!

Пример такого кода:

Sub DeleteHiddenRowsColumns() 
Dim sht As Worksheet 
Dim Rng As Range 
Dim LastRow As Integer 
Dim RowCount As Integer 
Set sht = ActiveSheet 
Set Rng = Range("A2:B300") 
RowCount = Rng.Rows.Count 
LastRow = Rng.Rows(Rng.Rows.Count).Row 
ColCount = Rng.Columns.Count 
LastCol = Rng.Columns(Rng.Columns.Count).Column   

For i = LastRow To LastRow - RowCount Step -1 
If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete 
Next   

For j = LastCol To LastCol - ColCount Step -1 
If Columns(j).Hidden = True Then Columns(j).EntireColumn.Delete 
Next     

End Sub

Эта функция удалит все скрытые элементы из A2:B300.

Сам код такой же, как и те, что мы рассмотрели ранее, но в нем указан конкретный диапазон.

Вот и все! Рекомендую использовать встроенную функцию проверки документа, если вам нужно удалить скрытые элементы со всех листов. А в других случаях — используйте любой из кодов для Visual Basic.

Надеюсь, эта статья оказалась полезной для вас!