如何讓圖形在 Excel 中持續閃爍？

作者Siluvia修改日期2024-11-13

如果您希望圖形在工作表中持續閃爍，本文將為您示範具體的實現方法。

使用 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

注意事項：

1）在程式碼中，new 是您要使其閃爍的圖形名稱。請依實際情況修改為您自己的圖形名稱。

2）00:00:01 表示圖形將每秒閃爍一次。

3. 同時按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

4. 透過點選開發人員 > 插入 > 按鈕（表單控制項），即可將按鈕插入至工作表中，如下方截圖所示。

Excel 中「插入按鈕」選項的螢幕截圖

5. 在跳出的指定巨集對話方塊中，於巨集名稱方塊內選取 Flash 項目，然後點選確定按鈕。

Excel 中已選取 Flash 巨集的「指定巨集」對話框螢幕截圖

6. 接著，根據需求變更按鈕上的顯示文字。在此範例中，我將顯示文字修改為「開始閃爍」，如下方截圖所示。

Excel 中顯示文字「開始閃爍」的按鈕螢幕截圖

7. 重複上述步驟 4 與 5，插入新按鈕，並將 StopIt 巨集指派給此按鈕。

8. 變更此新按鈕上顯示的文字。

此時，您會看到兩個已指派不同巨集的按鈕已插入至工作表中。請參閱截圖：

Excel 中兩個按鈕的螢幕截圖：「開始閃爍」和「停止閃爍」

從現在起，只要點選「開始閃爍」按鈕，圖形就會以不同顏色閃爍；若要停止閃爍效果，只需點選「停止閃爍」按鈕即可。

如何讓 Excel 中指定儲存格的文字閃爍？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多