перенос(скрытие) графика

[ruavia3]

Привет. Имеются 2 графика, которых необходимо разместить на одном листе, в одном и том же месте, но отображать только тот, который соответствует условию.
Условия будут задавать стрелки Sub SpinButton1_Change
(условие для 1 графика - ячейка А1=0, условие для 2 графика А1=1)

[mchip]

Выложите пример с графиками

[ruavia3]

К сожалению, не могу выложить файл. А есть какие-нибудь условия (например, если значение ячейки равно 1) при которых график смещался бы на 100 ячеек вниз(или пунктов)?

[mchip]

Смещение графиков это VBA. Выложите пример. Если исходный файл выложить нельзя то создайте файл с примерными данными. Решений может быть несколько..

[Юнлинг]

Сообщение от ruavia3

Привет. Имеются 2 графика, которых необходимо разместить на одном листе, в одном и том же месте, но отображать только тот, который соответствует условию.
Условия будут задавать стрелки Sub SpinButton1_Change
(условие для 1 графика - ячейка А1=0, условие для 2 графика А1=1)

Вопрос?
Зачем нужно делать два графика на одном листе. Ведь можно сделать один, а потом используя макрос подставлять разные значения для графика.
Для этого нужно сделать один график. После чего запустить макрорекодер и изменить параметры графика т.е. перерисовать его, после чего остановить макрорекодер и снова запустить чтобы получить вернуть первоночальный график. Полученные макросы лягут в основу Вашей программы.
Я таким образом изобразил пять разнообразных графиков, они все были динамическими - время изменения значений для графика 15 секунд

[ruavia3]

Макрос необходимо привязать к SpinButton1 (который ссылается на ячейку А1). Если А1 = 0, то в поле С2:Н18 *оно выделено жирным* вставляется график Chart2, a если А1=1, то в поле вставляется Chart5.

* к графикам Chart2 и Chart5 прикреплены scroll bar-ы, которые необходимо убирать и вставлять вместе с графиками.

[ruavia3]

Юнлинг, а значения осей можно также можно изменить как и график? У меня значения выводимых показателей варируются значительно, т.е. на одном графике показатели в тысячах, а на другом в десятых долях.

[mchip]

Вот действующий пример. Но в таких случаях лучше не использовать элементы ActiveX. Лучше обойтись элементами формы.

[Юнлинг]

Сообщение от ruavia3

Юнлинг, а значения осей можно также можно изменить как и график? У меня значения выводимых показателей варируются значительно, т.е. на одном графике показатели в тысячах, а на другом в десятых долях.

Я в своей программе, как говорил в предудущей посте изменяя сделал пять графиков. Сади сам
первое потребление электроэнергии - 1.4 до 2,5 МВт
потребление газа - 3500 до 11000 к.м.п.н.у.
произведенная продукция - 35...50 тн.час
удельная норма по электроэнергии - 0,02 ... 0,03
удельная норма по газу - 0,004 до 0,01
просто помимо данных нужно изменять диапазон, я это делал так

   ActiveChart.Axes(xlValue).Select
   With ActiveChart.Axes(xlValue)
       .MinimumScale = mizg(i)
       .MaximumScale = mazg(i)
....
    End With

где mizg(i) - минимальное значение
mazg(i) -максимальное значение


P.S. к сожалению всю прогу выложит не могу. коммерческая тайна. но кусок пожалуйста

[ruavia3]

А к моему файлику не могли бы вставить код?