Anonymní profil Zdenek – Programujte.com

má někdo tušení proč se vykreslování jednoduchého obrazce pomocí vba chová jinak v excelu a jinak v PP?

pokud spustím tento kód v powerpointu:

Sub timeout(duration As Double)
    start_time = Timer
    Do
      DoEvents
    Loop Until (Timer - start_time) >= duration
End Sub

Private Sub CommandButton3_Click()
    rep_count = 0

Do
    DoEvents
    
    rep_count = rep_count + 1
    
    ActivePresentation.Slides(1).Shapes("rect").Left = rep_count
    timeout (0.1)
Loop Until rep_count = 100

End Sub

v powepointu se chová velice "trhaně" a jsou tam vidět velké skoky. 

V excelu běží naprosto plynule a bez problému.