求教，论坛里的mvp们~~~ 帮帮忙吧！！ 想实现按钮闪烁提示的效果，不知道怎样改了

a123456b0

      如题，源文件已上传，请大家帮我看看，我错在哪里了。。。。。唉，发现自己还是基础太差啊~~
额，没人下载？  怕文件很大么？ 其实内容很少的，这样吧，我贴出来吧。。。。。

1. Sub 按钮闪烁(ByVal com1 As Office.CommandBarButton)
   
2. Do Until Application.Caller = "CommandButton1"
   
3.     com1.BackColor = &H80000001
   
4.     Call Delay(0.2)
   
5.     com1.BackColor = &H8000000F
   
6.     Call Delay(0.2)
   
7. Loop
   
8. End Sub
   
9. Private Sub Worksheet_Activate()
   
10. Dim com As Office.CommandBarButton
    
11. Set com = CommandButton1
    
12. Call 按钮闪烁(com)
    
13. End Sub
    

复制代码

a123456b0

额。。。。。都没有人了解么。。。。。

mxg825

看看是否这个效果！