Как удалить все диаграммы в книгах Excel?

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

• Удаление всех диаграмм на активном листе с помощью VBA
• Удаление всех диаграмм на активных листах или в книгах с помощью Kutools для Excel

Удаление всех диаграмм на активном листе с помощью VBA

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

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

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

Sub DeleteallCharts()
  'Updated by Extendoffice 2024/07/23
Dim chtObj As ChartObject
For Each chtObj In ActiveSheet.ChartObjects
chtObj.Delete
Next
End Sub
  

Шаг 3: Нажмите клавишу F5, чтобы запустить этот макрос.

Примечание: Этот макрос удалит только все диаграммы на активном листе.

Удаление всех диаграмм на активных листах или в книгах с помощью Kutools для Excel

Изучение макросов может оказаться непростым для обычных пользователей Microsoft Excel. Не беспокойтесь об этом. Функция Kutools для Excel «Удалить иллюстрации и объекты…» поможет вам удалить все диаграммы на активных листах или в книге.

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

Шаг 2: В диалоговом окне «Удалить иллюстрации и объекты» отметьте опцию Диаграммы в разделе Удалить. См. скриншот:

Шаг 3: Отметьте один из вариантов в разделе Искать в. См. скриншот:

• Если вам нужно удалить все диаграммы на активных листах, отметьте опцию Текущий лист;
• Если вам нужно удалить все диаграммы во всей книге, отметьте опцию Все листы;
• Если вам нужно удалить все диаграммы на нескольких конкретных листах, отметьте опцию Выбранные листы.

В данном случае я выбираю Все листы, см. скриншот:

Шаг 4: Нажмите OK.

Связанная статья:

• Как легко удалить все изображения в Excel 2007/2010?