Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Сбитый Лётчик Небосводов
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
[ Закрыто] VBA. Ошибка при обращении к диаграмме, Лист.ChartObjects("Chart " & Лист.ChartObjects.Count).Select => Компонент с указанным именем не найден.
 
#
06.03.2022 07:19:06
Здравствуйте, коллеги!
Ошибка «Компонент с указанным именем не найден.» при обращении к диаграмме
Код
Лист.ChartObjects("Chart " & Лист.ChartObjects.Count).Select
При этом:
1, Никаких нареканий на Лист.ChartObjects("Chart " & Лист.ChartObjects.Count) в другом макросе нет.
2. Обход известен
Код
Лист.ChartObjects(Лист.ChartObjects.Count).Select
Но хочется понять, в чём дело,
3. При удалении листа-цели, где эта дудорога происходит, и последующем создании нового макрос отрабатывает один раз и выдаёт ошибку при последующих запусках.
Прошу помощи.
 
Перейти    
VBA. Как после копирования диаграммы задать ей новый диапазон данных
 
#
15.02.2022 06:39:17
Здравствуйте. коллеги!
Моя ночь прошла, а я на том же месте, что и вчера.
При копировании диапазона копируется и находящаяся на нём диаграмма. Со старыми ссылками на источник данных, т.е. в новом месте новые скопированные диаграммы данные берут из файла с образцом для копирования. На новом месте получается изменить размер диаграммы, но никак не могу догадаться, как изменить данные для новой диаграммы.
Код
…
'Работает:
Лист.ChartObjects(Лист.ChartObjects.Count).Width = 200
'Не работают:
Charts(Лист.ChartObjects.Count).SeriesCollection(1).XValues = Лист.Диапазон
Charts(Лист.ChartObjects.Count).SetSourceData Source:=Лист.Диапазон, PlotBy:=xlColumns
Application.Wait Now + TimeValue("00:00:02") 'Задержка, работает
Charts(1).Select 'Не работает даже это.

Задержку вставил в рамках пляски с бубном. С ней другая ошибка: Указано измерение, недопустимое для текущего типа диаграммы.
Без задержки: Subscript out of range.
Замена Лист.ChartObjects.Count на 1 ничего не меняет.
ChartObjects.Count считает исправно и верно.

Прощу помощи.
 
Перейти    
Страницы: 1
Наверх