Excel - 添加动画

Question

我对Excel很新，到目前为止学习它很有趣。我一直在使用Excel进行建模开始，我已经获得了足够的专业知识在这 我现在想往前走了一步，做了一下Excel的 设计的我有一个具体的要求。我的工作簿中有10张。我想在第一张纸上添加某种动画。我目前在我的工作表1上有一个按钮。 单击按钮时，它将取消隐藏所有9张纸，并允许我在其中查看建模内容。再次单击时，它会再次隐藏所有9张纸。

现在我想一件事添加到此。 点击按钮，我想让纸上的灯泡打开并显示一条消息（以及取消隐藏纸张） 再次点击一次，我希望灯泡关闭并再次隐藏纸张，

有人可以帮助我完成这个动画。

感谢， Sachi

Answer 1

要简单地使按钮改变形状填充黄色试试这个：

ActiveSheet.Shapes("SHAPE NAME").Fill.ForeColor.RGB = RGB(255, 255, 0) 

相同的思想可以应用到改变填充回来。我最近也一直在玩我自己的实际动画，所以如果你想比上面的东西更有趣，比尝试下面的东西更有趣。 （创建一个名为椭圆1演示它的形状，或将名称更改为你的形状名）

Sub bulb() 
steps = 300 
timelimit = 0.005 
increments = 255/steps 
counter = 0 
r = 0 
g = 0 
Do 
    DoEvents 
    counter = counter + 1 
    r = r + increments 
    g = g + increments 
    ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = RGB(r, g, 0) 
    timeout (timelimit) 
Loop Until counter = steps 
End Sub 

Sub timeout(duration_ms As Double) 
    Start_Time = Timer 
    Do 
    DoEvents 
    Loop Until (Timer - Start_Time) >= duration_ms 
End Sub 

是否需要调整你当然需要，但玩这个可能性是无止境的。

Answer 2

就像我说的是很简单的。这就是你的Button和Bulb的样子。

形状用于创建灯泡

1. Straight接头
2. 椭圆
3. 云

代码

Private Sub CommandButton1_Click() 
    If CommandButton1.Caption = "Hide" Then 

     ' 
     '~~> Your code here to Hide the Sheets 
     ' 

     ActiveSheet.Shapes("Oval 2").Fill.ForeColor.RGB = RGB(255, 255, 255) 

     CommandButton1.Caption = "Unhide" 
    ElseIf CommandButton1.Caption = "Unhide" Then 

     ' 
     '~~> Your code here to Unhide the Sheets 
     ' 

     ActiveSheet.Shapes("Oval 2").Fill.ForeColor.RGB = RGB(255, 255, 0) 

     CommandButton1.Caption = "Hide" 
    End If 
End Sub