программно изменить диаграмму

диаграм

Гость

30.03.2011 18:18:44

Sub Макрос1()
ActiveSheet.ChartObjects("Диаграмма 2").PlotBy = xlRows
End Sub
Sub Макрос2()
ActiveSheet.ChartObjects("Диаграмма 2").PlotBy = xlColumns
End Sub

Подскажите почему рекордер записывает код подобным образом, а при выполнении выдает ошибку ?
И как поменять, в таком случае, программно столбцы и строки ?

Guest Гость	#2 31.03.2011 01:00:56 похоже перерисовать заново всю диаграмму с нужным форматом

webley Пользователь Сообщений: 2174 Регистрация: 01.01.1970	#3 31.03.2011 09:30:23 Почему так записывает - не знаю, поменять - Sub Макрос1() ActiveSheet.ChartObjects("Диаграмма 2").Chart.PlotBy = xlRows End Sub Sub Макрос2() ActiveSheet.ChartObjects("Диаграмма 2").Chart.PlotBy = xlColumns End Sub

Читают тему