очистка листа от диаграмм

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

очистка листа от диаграмм (как очистить несколько листов от диаграмм макросом)

очистка листа от диаграмм

Bandin

Дата: Пятница, 03.05.2013, 12:05 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Добрый день! Подскажите пожалуйста, как очистить листы Excel со 2-го по 4-ый, от кучи разных диаграмм, макросом.

Ответить

Матраскин

Дата: Пятница, 03.05.2013, 12:20 | Сообщение № 2

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

[vba]

Код

ActiveSheet.ChartObjects("Диаграмма 2").Activate
Selection.Delete

[/vba]

если по именам )) можно ещё по чём нить

в интернете опять кто-то не прав

Ответить

Bandin

Дата: Пятница, 03.05.2013, 12:31 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

[vba]

Код

    For j = 2 To 4
     имя = "лист" & j
    Sheets(имя).Select
     For i = 1 To 3
     а = "диаграмма " & i
     ActiveSheet.ChartObjects(а).Activate
     ActiveChart.Parent.Delete
     Next i
         Next j

[/vba]

удаление происходит с 1-ой по 3-ию диаграммы, а мне нужно с 1-ой по n - где n номер последней диаграммы

Ответить

Саня

Дата: Пятница, 03.05.2013, 12:52 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

ActiveSheet.ChartObjects.Delete ' все диаграммы долой
ActiveSheet.ChartObjects(a).Delete ' какую-то

[/vba]

НЕ НАДО ничего выделять

Ответить

Bandin

Дата: Суббота, 04.05.2013, 11:36 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

О супер! Большое спасибо! smile

Ответить

очистка листа от диаграмм (как очистить несколько листов от диаграмм макросом)

Страница 1 из 1
1