Application.ScreenUpdating = True

[kimjb]

Hi, I realise there is a similar old post, but I can't seem to see how it helps me.

I have a simple macro in which I want to move a shape across a screen.
It worked in older Excel versions, but now does not update the screen, and only shows the shapes final position.

I've simplifed it for this test and extract which still does not work:

Is this an excel 2013 issue? Is there a solution?

I'd be grateful for any advice.

Sub Test()


Application.ScreenUpdating = True


For i = 1 To 100


With Worksheets("Funnel Show").Shapes("Funnel")
    .Top = 5
    .Left = i * 5 + 30
End With




Next i




End Sub

 

[mole999]

just for a test put

Application.Wait (Now + TimeValue("0:00:01"))

before Next I

should take 1:20 to work across the screen

 

[RoryA]

Hi, and welcome to the forum.

Try putting the ScreenUpdating inside the loop to force a redraw:

    For i = 1 To 100

        With ActiveSheet.Shapes("Oval 1")
            .Top = 5
            .Left = i * 5 + 30
            Application.ScreenUpdating = True
        End With

    Next i

 

[SpreedsheetCrusader]

Sheesh Mr. Roy nailed it !

am fixated to it right now keep clicking the code and watching the oval float in the screen. my colleagues think i am going nuts

 

[kimjb]

thanks Guys, I am really grateful to you all.

I can get back to watching marbles fall to the floor !