vba - Excel - 添加动画

Question

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

现在我想再添加一件事。
单击按钮时，我希望工作表上的灯泡打开并显示一条消息(以及取消隐藏工作表)
再点击一次，我希望灯泡关闭并再次隐藏床单，

有人可以帮我制作这个动画。

谢谢，
幸

Answer 1

就像我说的，这很简单。这就是您的Button和 Bulb好像。



用于制作灯泡的形状

直连接器

椭圆形

云

代码

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