如何在 Excel 中让形状反复闪烁？

如果你想让一个形状在工作表中持续闪烁，本文将向你展示如何操作。

使用 VBA 代码让形状反复闪烁

使用 VBA 代码让形状反复闪烁

在工作表中，为了创建一个闪烁的形状效果，请按照以下步骤操作。

1. 按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后复制并将 VBA 代码粘贴到代码窗口中。

VBA 代码：让形状在工作表中反复闪烁

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

注意事项：

3. 同时按下 Alt + Q 键退出 Microsoft Visual Basic for Applications 窗口。

4. 通过点击 开发工具 > 插入 > 按钮（窗体控件），如下截图所示，将按钮插入到工作表中。

5. 在弹出的“分配宏”对话框中，在“宏名称”框中选择 Flash，然后点击 确定 按钮。

6. 然后根据需要更改按钮上的显示文本。在这种情况下，我将显示文本更改为“开始闪烁”，如下截图所示。

7. 重复上述步骤 4 和 5，插入一个新按钮，并将 StopIt 宏分配给此按钮。

8. 更改这个新按钮的显示文本。

然后你会看到两个分配了不同宏的按钮被插入到工作表中。见截图：

从现在开始，当点击“开始闪烁”按钮时，形状开始以不同的颜色闪烁。如果想停止闪烁，请点击“停止闪烁”按钮。

相关文章：

• 如何在 Excel 中让指定单元格的文本闪烁或闪动？