なぜ私の形が隠れていないのですか？

Question

私は以下のコードを使用しています...

Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long) 
Sub blink() 
    Sleep 500 
    ActiveSheet.Shapes("the_shape").Visible = False 
    Sleep 500 
    ActiveSheet.Shapes("the_shape").Visible = True 
End Sub 

私は何かが足りないのですか？

Answer 1

これはかなり奇妙です。 DoEventsを追加すると問題が解決しました。私は、SleepがExcelにシェイプを隠す機会がある前にスレッドを一時停止していると推測しています。

Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long) 

Sub blink() 
    Sleep 500 
    ActiveSheet.Shapes("the_shape").Visible = False 
    DoEvents 
    Sleep 500 
    ActiveSheet.Shapes("the_shape").Visible = True 
End Sub