VBA/Excel/Access/Word/Application/Application DoEvent

Материал из VB Эксперт
Перейти к: навигация, поиск

Use Application.DoEvent

 
Sub UseApplicationDoEvent()
       StarWidth = 25
       StarHeight = 25
       
       Set NewStar = ActiveSheet.Shapes.AddShape(msoShape4pointStar, LeftPos, TopPos, StarWidth, StarHeight)
       NewStar.Fill.ForeColor.SchemeColor = Int(Rnd() * 56)
       Application.Wait Now + TimeValue("00:00:01")
       DoEvents
       Application.Wait Now + TimeValue("00:00:02")
End Sub
Источник — «http://vbex.ru/index.php?title=VBA/Excel/Access/Word/Application/Application_DoEvent&oldid=1068»