Всем добрый вечер) Опять столкнулась с проблемой. В файле есть сводная таблица и на ее основе сделана диаграмма... так вот... когда я в диаграмме применяю фильтр, что б подробно ознакомиться с одним рядом данных, при возвращении обратно диаграмма меняется (ширина рядов) и данные с вспомогательной оси переносятся в основную... как можно этого избежать?
Всем добрый вечер) Опять столкнулась с проблемой. В файле есть сводная таблица и на ее основе сделана диаграмма... так вот... когда я в диаграмме применяю фильтр, что б подробно ознакомиться с одним рядом данных, при возвращении обратно диаграмма меняется (ширина рядов) и данные с вспомогательной оси переносятся в основную... как можно этого избежать?Ocharovashka666
Здравствуйте. Как избежать не знаю, но если сохранить эту диаграмму как шаблон, то к этому виду можно быстро будет вернуться. Достаточно будет нажить Изменить тип диаграммы и указать выбранный шаблон. А если еще процедуру выбора шаблона записать макрорекордером и повесить на клик по диаграмме, то получится совсем просто. Вот что получилось у меня, при записи макрорекордером. Адрес шаблона "МояДиаграмма" возможно у вас будет другой.[vba]
Код
Sub Диагр() ActiveSheet.ChartObjects("Диаграмма 1").Activate ActiveChart.ApplyChartTemplate ( _ "C:\Users\User\AppData\Roaming\Microsoft\Шаблоны\Charts\МояДиаграмма.crtx") End Sub
Здравствуйте. Как избежать не знаю, но если сохранить эту диаграмму как шаблон, то к этому виду можно быстро будет вернуться. Достаточно будет нажить Изменить тип диаграммы и указать выбранный шаблон. А если еще процедуру выбора шаблона записать макрорекордером и повесить на клик по диаграмме, то получится совсем просто. Вот что получилось у меня, при записи макрорекордером. Адрес шаблона "МояДиаграмма" возможно у вас будет другой.[vba]
Код
Sub Диагр() ActiveSheet.ChartObjects("Диаграмма 1").Activate ActiveChart.ApplyChartTemplate ( _ "C:\Users\User\AppData\Roaming\Microsoft\Шаблоны\Charts\МояДиаграмма.crtx") End Sub