VBA Code F8 works but F5 doesn't

[YLCheng]

I would save the data as JPG into the folder and I set up the VBA as the following, it's work when stepping through the code of F8, but running the code of F5 doesn't (show run-time error "91").
Anyone can tell me the solution for it?
The error happen

 

[RoryA]

Try using cht.chart instead of activechart

 

[YLCheng]

Try using cht.chart instead of activechart

That shows another error

 

[RoryA]

Looks like a timing issue then. Try adding a DoEvents line before the one causing the error.

 

[YLCheng]

Looks like a timing issue then. Try adding a DoEvents line before the one causing the error.

Adding DoEvents but still not working.

 

[Georgiboy]

Try replacing this line:

ActiveChart.Shapes.Range(Array("chart")).Select

With:

    Do
        On Error Resume Next
        ActiveChart.Shapes.Range(Array("chart")).Select
        If Err.Number = 0 Then Exit Do
        DoEvents
    Loop
    On Error GoTo 0

 

[RoryA]

You should still be using cht.chart not activechart. Also please always tell us the error message.

 

[YLCheng]

You should still be using cht.chart not activechart. Also please always tell us the error message.

adding doevents and using cht.chart, but it's still work for F8 only.

 

[Georgiboy]

Try post 6 with either method, preferably cht.chart.

I took the line from your original post.

 

[YLCheng]

Try replacing this line:

ActiveChart.Shapes.Range(Array("chart")).Select

With:

    Do
        On Error Resume Next
        ActiveChart.Shapes.Range(Array("chart")).Select
        If Err.Number = 0 Then Exit Do
        DoEvents
    Loop
    On Error GoTo 0

Tried the formula you provided, but it non-stopping to run, can't step to the next line.