Chart X axis scaling

[JT001]

Hi Everyone,

I've been successfully using some simple VBA code for years in Excel 2013 to adjust the X axis scale of a chart. I've just upgraded to Excel 365 and the code no longer works - I get Run-Time Error 91, Object variable or With block variable not set.

This is the code...

Please can someone tell me what to do to fix it?

Thanks.

 

[NdNoviceHlp]

Hi JT001. Trial changing the active sheet to a specific sheet (ie. Sheets("Sheet1").Range("c5").Value). The "activechart" might also might need to be changed to a specific chart (ie. Sheets("Sheet1").ChartObjects("Chart 1").Chart) HTH. Dave
ps. Welcome to the Board!

 

[rlv01]

Works fine for me under 365. The only time I get runtime error 91 is if there is no ActiveChart object, which I suspect is your problem. You can test for this with a slight code modification

Sub ScaleXAxisWholeCycle()
    Dim Ch As Chart
    
    On Error Resume Next
    Set Ch = ActiveChart
    On Error GoTo 0
    
    If Not Ch Is Nothing Then
        With ActiveChart.Axes(xlCategory, xlPrimary)
            .MinimumScale = ActiveSheet.Range("C5").Value
            .MaximumScale = ActiveSheet.Range("C6").Value
        End With
    Else
        MsgBox "No Chart Found"
    End If
End Sub

On another subject, welcome to the forum. When you post code, please post the actual text (and use code tags) as I have done above. Images of code are hard to work with.

 

[JT001]

Thank for the suggestions.

I've updated the code as per rlv01 suggestion and now, regardless of whether I've selected the chart or not, I get the 'No Chart Found' message so it looks like Excel isn't seeing the chart as Active even though it's been selected.

Any ideas? Could it be because the workbook was originally created in Excel 1013 (or maybe even older!)?

Many thanks,

Jon