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

如果要使形状在工作表中反复闪烁，本文中的方法可以为您提供帮助。

用VBA代码反复闪烁形状

用VBA代码反复闪烁形状

在工作表中，要使形状闪烁，请执行以下操作。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将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。 按 其他 + Q 键一起退出 Microsoft Visual Basic应用程序 窗口。

4.通过单击将一个按钮插入工作表 开发商 > 插页 > 按钮（表单控件） 如下图所示。

5.在弹出 分配宏 对话框中选择 Flash ，在 宏名 框，然后单击 OK 按钮。

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

7.重复上述步骤4和5，插入新按钮并分配 停下来 此按钮的宏。

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

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

从现在开始，单击“开始闪烁”按钮时，形状开始以不同颜色闪烁。 如果要停止闪光，请单击停止闪烁按钮。

相关文章：

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