hello,

pls. help me to integrate this macro
i am trying to make a macro that will resize the Y-axis scale of a line
chart based on formulated cell values...
i got this error message

"Compile Error Sub or Function not defined"
highlighting the ; " .MinimumScale = Value("N1")"----
below is the basic macro taken from VB.
------
Sub tstmacro()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Value("N1")
.MaximumScale = Value("o1")
.MinorUnit = Value("r1")
.MajorUnit = Value("q1")
.Crosses = xlCustom
.CrossesAt = Value("N1")
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
-- ---------
thanks for any assistance
regards

*****
birds of the same feather flock together..

Try changing

Value("N1")

to

Range("N1").Value

In article ,
driller wrote:

hello,

pls. help me to integrate this macro
i am trying to make a macro that will resize the Y-axis scale of a line
chart based on formulated cell values...
i got this error message

"Compile Error Sub or Function not defined"
highlighting the ; " .MinimumScale = Value("N1")"----
below is the basic macro taken from VB.
------
Sub tstmacro()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Value("N1")
.MaximumScale = Value("o1")
.MinorUnit = Value("r1")
.MajorUnit = Value("q1")
.Crosses = xlCustom
.CrossesAt = Value("N1")
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

thanks Sir,

thats quick and you're dependable...

regards
--
*****
birds of the same feather flock together..



"JE McGimpsey" wrote:

Try changing

Value("N1")

to

Range("N1").Value

In article ,
driller wrote:

hello,

pls. help me to integrate this macro
i am trying to make a macro that will resize the Y-axis scale of a line
chart based on formulated cell values...
i got this error message

"Compile Error Sub or Function not defined"
highlighting the ; " .MinimumScale = Value("N1")"----
below is the basic macro taken from VB.
------
Sub tstmacro()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Value("N1")
.MaximumScale = Value("o1")
.MinorUnit = Value("r1")
.MajorUnit = Value("q1")
.Crosses = xlCustom
.CrossesAt = Value("N1")
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub