爱疯神,你再看看这个,下面是我编的,无法生成,错误在哪里?
Private Sub Worksheet_change(ByVal target As Range)
ActiveSheet.ChartObjects("图表 6").Activate
ActiveChart.Axes (xlCategory)
With .MaximumScale = [h22]
.MinimumScale = [j33]
.CrossesAt = [j33]
End With
Range("q33").Select