help with chart x axis scale

[sedgely]

i have the following that changes the x axis scale based on a value on a worksheet, it works fine until i change

[red]With ActiveChart.Axes(xlCategory)[/red]
            .MinimumScale = minScaleValue
            .MaximumScale = maxScalevalue
        End With

to

[red]With oSPCCht.Axes(xlCategory)[/red]
            .MinimumScale = minScaleValue
            .MaximumScale = maxScalevalue
        End With

can someone explain why this won't work?

Function updateSPCcht()

Dim minScaleValue 
Dim maxScalevalue 
Dim oDataSh As Worksheet
Dim oSPCCht As ChartObject


Set oDataSh = Worksheets("Page1 SPC")
Set oSPCCht = Worksheets("printsheet").ChartObjects("SPC Chart 1")
maxScalevalue = oDataSh.Range("j1").Value
minScaleValue = maxScalevalue - 196

[red]With ActiveChart.Axes(xlCategory)[/red]
            .MinimumScale = minScaleValue
            .MaximumScale = maxScalevalue
        End With
End Function

Cheers, Craig
Si fractum non sit, noli id reficere

 

[remeng]

try this:

 Set oSPCCht = Worksheets("printsheet").ChartObjects("SPC Chart 1").select

 

[SkipVought]

Hi,

Dim oSPCCht As [b]ChartObject[/b]


Set oDataSh = Worksheets("Page1 SPC")
Set oSPCCht = Worksheets("printsheet").ChartObjects("SPC Chart 1")
maxScalevalue = oDataSh.Range("j1").Value
minScaleValue = maxScalevalue - 196
[b][red]
'a ChartObject is not a Chart[/red]
[/b]
With oSPCCht[b].Chart[/b].Axes(xlCategory)
            .MinimumScale = minScaleValue
            .MaximumScale = maxScalevalue
        End With

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[sedgely]

Hi Guys

Thx for the reponses. Skip, can't believe i didn't spot that, DOH!

Cheers, Craig
Si fractum non sit, noli id reficere