如何在 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 中讓指定儲存格的文字閃爍或閃動？