Chart Sheet/Axes

[Patrick]

This seems like and probably is a trivial question, but I can't seem to
get it right. I've browsed through this group and found seemingly many
solutions that apply to chart objects, but not with a seperate chart
sheet im working with.

I am referencing the chart sheet via (Excel.Application).Charts(1)
like:

xlApp.Charts(1).Select

I am trying to find a simple way to read the min/max scale of the Y
axis, and if they are 0 to 1, change to 0 to 1.2. I've tried many
variations but can't seem to find one that actually works -- I also
recorded a macro to set this and it wouldnt seem to work either. Can
anyone provide a quick sample of what might be used to retrieve and/or
set the min/max scale values on a seperate chart sheet?

TIA

Pat

 

[Patrick]

BTW an example of what I'm using to try to retrieve this value would
be:

xlApp.Charts(1).Axes(xlValue).MaximumScale

TIA

 

[Peter T]

I am referencing the chart sheet via (Excel.Application).Charts(1)

try a referencing a workbook chart sheet in the Workbook's Charts or Sheets
collection

Sub test()
Dim cht As Chart

Set cht = ActiveWorkbook.Charts("Chart3")

With cht.Axes(xlValue)
'might need to set respective 'ScaleIsAuto
'.MinimumScaleIsAuto = False
'.MaximumScaleIsAuto = False
.MinimumScale = 0
.MaximumScale = 1.2
End With

End Sub

If you are automating Excel then qualify the workbook with your xlApp ref.

Regards,
Peter T

 

[Patrick]

Do you (or anyone) know of an easy way to determine what the
minimum/maximumscale is? I don't seem to be having problems setting the
scale, but I do have problems determining the current scale (most won't
be what I'm looking for)

Thanks in advance!

 

[Jon Peltier]

Dim dAxisMin as Double
dAxisMin = cht.Axes(xlValue).MinimumScale

- Jon

 

[Patrick]

I apologize for another beginner level question, but I'm automating
Excel from Word (both Office XP/2002).

I have something like:

--snip--
Dim xlApp As Object
Dim dAxisMin as Double
....
Set xlApp = CreateObject("Excel.Application")
....
xlApp.Charts(1).Select
....
dAxisMin = xlApp.Charts(chNameTab).Axes(xlValue).MinimumScale
dAxisMax = xlApp.Charts(chNameTab).Axes(xlValue).MaximumScale
....
--snip--

The values of min/max should be 0/1, but they both either return 0 or
throw an exception about not being able to find Axes property. Am I
qualifying this properly?

Thanks

 

[Patrick]

Apparently the code was fine all along but I was missing a reference to
Excel 10 (under tools from VBE). Seems to be working now.

Thanks