Страницы: 1
RSS
Макрос на установление одинаковых максимумов на графиках
 
Всем добрый день! Помогите решить производственную задачу: Необходимо установить идентичные максимумы на графиках 1,2,3 по оси Y: основной и вспомогательной  (максимумы на графиках 2 и 3 должны быть равны максимуму на графике 1), в принципе макрос для графика 2 я уже написал, но он выдает не округленное значение, то есть по-хорошему максимумы должны быть равны автомаксимуму графика 1, то же самое с графиками 4,6,7 (максимумы на 6 и 7 графиках должны быть равны максимуму на 4), минимумы можно не устанавливать, либо поставить = 0 везде, заранее всем спасибо
Изменено: Zealot92 - 06.02.2020 17:12:33
 
Zealot92 Решение.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("AD24:AE27")) Is Nothing Then
       ChartObjects("Диаграмма 2").Chart.Axes(xlValue, xlPrimary).MaximumScale = ChartObjects("Диаграмма 1").Chart.Axes(xlValue, xlPrimary).MaximumScale
       ChartObjects("Диаграмма 2").Chart.Axes(xlValue, xlSecondary).MaximumScale = ChartObjects("Диаграмма 1").Chart.Axes(xlValue, xlSecondary).MaximumScale
    End If
End Sub
Изменено: skais675 - 07.02.2020 10:10:53
 
Спасибо за решение!
 
Попробовал запихнуть в пример - ничего не произошло(
Страницы: 1
Наверх