VBA - surely this should not be happening

[Siyanna]

Hi

I have 2 form controls where i have attached some code to update some charts on my sheet..

For some reason even after turnimg the screen updating off, it hides all my ovjects and charts before updating all the charts so its like you can see that the charts and most objects get hidden whilst the code is running

I dont like this slight twitch effect and wanted to get around this

I am using excel 2013

I have even put DoEvents but that dont make any difference

This is my code

Sub changechart()

Application.screenupdating=false


Dim i As Long

For i = 1 To 5
Worksheets("DailyView2").ChartObjects("Chart0" & i).Activate
With ActiveChart
.SeriesCollection(3).Format.Line.DashStyle = msoLineSysDot
.SeriesCollection(3).Border.Color = RGB(128, 128, 128)
.SeriesCollection(3).Format.Line.Weight = 1.5
.SeriesCollection(4).Format.Line.DashStyle = msoLineSysDot
.SeriesCollection(4).Border.Color = RGB(0, 0, 0)
.SeriesCollection(4).Format.Line.Weight = 1.5
End With
Next i


Application.screenupdating=true

End sub

 

[wideboydixon]

What happens if you don't try and activate the chart?

Sub changechart()

Application.ScreenUpdating = False

Dim i As Long

For i = 1 To 5
    With Worksheets("DailyView2").ChartObjects("Chart0" & i)
        .SeriesCollection(3).Format.Line.DashStyle = msoLineSysDot
        .SeriesCollection(3).Border.Color = RGB(128, 128, 128)
        .SeriesCollection(3).Format.Line.Weight = 1.5
        .SeriesCollection(4).Format.Line.DashStyle = msoLineSysDot
        .SeriesCollection(4).Border.Color = RGB(0, 0, 0)
        .SeriesCollection(4).Format.Line.Weight = 1.5
    End With
Next i

Application.ScreenUpdating = True

End Sub

WBD

 

[Siyanna]

That throws an error on the series collection line

 

[Siyanna]

Ive researched and still have not found a solution- it flickers on charts even though screenupdating is false

 

[JackDanIce]

Are the forms still visible when the chart updating code runs? Try hiding them before Sub changechart()

 

[Siyanna]

Are you saying after I changed my combo form selection - hide the combo form boxes ad unhide at the end?

 

[FormR]

That throws an error on the series collection line

Hi, this line from the code in post#2 should be:

With Worksheets("DailyView2").ChartObjects("Chart0" & i).Chart

 

[JackDanIce]

Are you saying after I changed my combo form selection - hide the combo form boxes ad unhide at the end?

Worth trying, the object may not be seen as part of the Excel screen so disabling updating may not disable the refresh of the object (userform) itself, only the sheet. Is a guess, no idea if this is true or not.