为什么excel没有隐藏我的形状？

【问题标题】：Why excel is not hiding my shape?为什么excel没有隐藏我的形状？
【发布时间】：2016-11-03 05:01:42
【问题描述】：

我在下面使用这个代码...

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

我错过了什么吗？

【问题讨论】：

完整的句子更容易阅读。

标签： excel vba macros hide basic

【解决方案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

【讨论】：

非常感谢。是的，很奇怪，但你的回答奏效了。