D
danz98
This has been posted to excel.programming.
I am trying to plot this formula: r = a + b Cos(KQ), on a radar chart. Everything works just fine except that when I change the values of the b variable, Excel will not plot the chart correctly. However, if I manually change the major gridlines, MimimumScale = 0, it plots correctly. The macro recorder sets minimum and maximum to auto (see below). I need to set minimum to 0 (zero). The subroutine stops at ..MinimumScaleIsAuto = True and MinimumScale = 0. The error message is “unable to set MinimumScale Property of Axis class.” Can someone tell me how to overcome this? I appreciate your help.
Thanks.
Private Sub Macro4()
'
' Macro4 Macro
' Macro recorded 8/20/2005 by David O. Antillon
'
'
ActiveSheet.ChartObjects("Chart 15").Activate
ActiveChart.ChartArea.Select
With Selection.Border.LineStyle = 0
End With
'#######
Selection.Interior.ColorIndex = xlAutomatic
'ActiveChart.Axes(xlValue).MajorGridlines.Select
'With ActiveChart.Axes(xlValue)
'.MinimumScaleIsAuto = True
'.MaximumScaleIsAuto = True
'End With
'#######
ActiveChart.Axes(xlValue).MajorGridlines.Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0
.MaximumScale = 3
.MinorUnit = 0.1
.MajorUnit = 0.5
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
I am trying to plot this formula: r = a + b Cos(KQ), on a radar chart. Everything works just fine except that when I change the values of the b variable, Excel will not plot the chart correctly. However, if I manually change the major gridlines, MimimumScale = 0, it plots correctly. The macro recorder sets minimum and maximum to auto (see below). I need to set minimum to 0 (zero). The subroutine stops at ..MinimumScaleIsAuto = True and MinimumScale = 0. The error message is “unable to set MinimumScale Property of Axis class.” Can someone tell me how to overcome this? I appreciate your help.
Thanks.
Private Sub Macro4()
'
' Macro4 Macro
' Macro recorded 8/20/2005 by David O. Antillon
'
'
ActiveSheet.ChartObjects("Chart 15").Activate
ActiveChart.ChartArea.Select
With Selection.Border.LineStyle = 0
End With
'#######
Selection.Interior.ColorIndex = xlAutomatic
'ActiveChart.Axes(xlValue).MajorGridlines.Select
'With ActiveChart.Axes(xlValue)
'.MinimumScaleIsAuto = True
'.MaximumScaleIsAuto = True
'End With
'#######
ActiveChart.Axes(xlValue).MajorGridlines.Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0
.MaximumScale = 3
.MinorUnit = 0.1
.MajorUnit = 0.5
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub