Roman Kozak, ларчик Ваш открывается просто:
1) посмотрите какие имена диаграмм запрашиваются в коде, и какие у Вас на листе. Отсюда
Run-time error.
2) посмотрите, что у Вас в ячейках AT3 и AU3, из которых берутся значения для значений осей. Там должны быть числа, а не буквы "МВ". Отсюда
Type mismatch error.
3) наконец, в цикле, перебирая коллекцию ChartObjects Вам надо обращаться к внутреннему объекту диаграммы Chart, а не самому ChartObject, чтобы использовать свойство Axes. Почему при вызове ChartObject'а по имени без цикла свойство Axes у него находится, а при вызове в цикле по индексу объекта - нет, признаться, не знаю. Надо вникать в работу интерпретатора VBA. Но ChartObjects(i).Chart.Axes(xlValues) отрабатывает в цикле успешно. Отсюда
Object doesn't support this property or method.
Вот так выглядит рабочий код для Вашего примера:
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [AD3]) Is Nothing Then
Min_ = [AV3]
Max_ = [AU3]
With ActiveSheet
For i = 1 To .ChartObjects.Count
With .ChartObjects(i).Chart.Axes(xlValue)
.MinimumScale = Min_
.MaximumScale = Max_
End With
Next i
End With
End If
End Sub
|
