Всем добрый день! Помогите решить производственную задачу: Необходимо установить идентичные максимумы на графиках 1,2,3 по оси Y: основной и вспомогательной (максимумы на графиках 2 и 3 должны быть равны максимуму на графике 1), в принципе макрос для графика 2 я уже написал, но он выдает не округленное значение, то есть по-хорошему максимумы должны быть равны автомаксимуму графика 1, то же самое с графиками 4,6,7 (максимумы на 6 и 7 графиках должны быть равны максимуму на 4), минимумы можно не устанавливать, либо поставить = 0 везде, заранее всем спасибо
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