Гистрограмма

[Foxx]

Здравтсвуйте! В ячейке B13 должна быть бесконечность. как не изменяя в настройках формат оси, установив фиксированное значение, изобразить гистрограмму, как показано на нижней. Значения могут быть разные и поэтому придется каждый раз изменть фиксированное значение.

[doober]

Попробуйте так

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Chart
If Not Intersect(Target, Range("A2:B13")) Is Nothing Then
   'Set X = Me.ChartObjects(1).Chart' Обе записи справедливы 
   Set X = Me.ChartObjects("Диаграмма 1").Chart 
   X.Axes(xlValue).MaximumScaleIsAuto = False
   X.Axes(xlValue).MaximumScale = Math.Round([b12], 2) + 0.01
End If
End Sub

[Foxx]

Вот как выглядит.

[Foxx]

И выдает ошибку.

[doober]

Вай вай,вы же не первый день в написании макросов.

[Foxx]

Благодарен.