autoscale stock chart

T

Tim

Hi All,
xl2003. A candle stick stock chart with some moving averages is located as a
new sheet. Trying to autoscale it using the next macro:
Dim intMax1 As Integer
Dim intMin1 As Integer
Dim intMax2 As Integer
Dim intMin2 As Integer
Dim rngMin As Range
Dim rngMax As Range

Set rngMin = Worksheets("Stock Data").Range("c2:d94")
Set rngMax = Worksheets("Stock Data").Range("c2:d94")

intMin1 = Application.WorksheetFunction.Min(rngMin)
intMin2 = Application.WorksheetFunction.RoundDown(intMin1, 0.1)

intMax1 = Application.WorksheetFunction.Max(rngMax)
intMax2 = Application.WorksheetFunction.RoundUp(intMax1,- 0.1)

ActiveChart.Axes(xlValue, xlSecondary).Select
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScale = intMin2
.MaximumScale = intMax2
End With

The macro seems to work when the price of the stock is greater than $20. But
when the stock price is less than $5 the autoscaling macro doesn’t work
properly. Tried to add these lines to the above macro:
ActiveChart.Axes(xlValue, xlPrimary).Select
With ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = intMin2
.MaximumScale = intMax2
End With

but received “Run-time error ‘1004’ “ message.
Also changed :
intMin2 = Application.WorksheetFunction.RoundDown(intMin1, +0.1)
intMax2 = Application.WorksheetFunction.RoundUp(intMax1, -0.1)
to
intMin2 = Application.WorksheetFunction.RoundDown(intMin1, +0.01)
intMax2 = Application.WorksheetFunction.RoundUp(intMax1, -0.01)
and there wasn’t any difference in the resulting chart.
I know how to autoscale the chart when it is located as object in the Data
sheet but this one (when the chart is located as a new sheet) drives me up to
the wall.
Any help is Highly appreciated.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top