задать масштаб осей диаграммы

Понедельник, 17 Февраля 2014 г. 14:49 + в цитатник

Добрый день! подскажите, пожалуйста, где я ошибаюсь?
Хочу программно менять масштаб осей диаграммы на форме.
Нашел такой способ:

Sub MinMax()

Dim obj_Diag3 As Object
Dim obj_Axis3 As Object

Set obj_Diag3 = Form_Diag2!Диаграмма3.Object
Set obj_Axis3 = obj_Diag3.axes(2)

obj_Axis3.MaximumScale = 110 ' тут вылетает с ошибкой: 1004 Run-time error Невозможно получить свойство MaximumScale класса Axis
obj_Axis3.MinimumScale = 100

End Sub