如何在Excel中反復使形狀閃爍或閃爍？

如果要使形狀在工作表中反復閃爍，本文中的方法可以為您提供幫助。

用VBA代碼反復閃爍形狀

用VBA代碼反復閃爍形狀驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

在工作表中，要使形狀閃爍，請執行以下操作。

1。 按 其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 然后將VBA代碼復制并粘貼到“代碼”窗口中。

VBA代碼：使形狀在工作表中反復閃爍

Dim NextTime As DateDim xColor As LongSub Flash()NextTime = Now + Timevalue("00:00:01")With ActiveSheet.Shapes("new").Fill.ForeColorIf xColor = 0 ThenxColor = .SchemeColorEnd If.SchemeColor = Int(Rnd() * 55 + 1)End WithApplication.onTime NextTime, "Flash"End SubSub StopIt()Application.onTime NextTime, "Flash", schedule:=FalseActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColorxColor = 0End SubCopy

:

1）。 在代碼中 新 是形狀的名稱，您將使其閃爍。 請更改為您自己的。2）。 00：00：01 表示形狀將每秒閃爍一次。

3。 按 其他 + Q 鍵一起退出 Microsoft Visual Basic應用程序 窗口。

4.通過單擊將一個按鈕插入工作表 開發商 > 插頁 > 按鈕（表單控件） 如下圖所示。

5.在彈出 分配宏 對話框中選擇 Flash ，在 宏名 框，然后單擊 OK 按鈕。

6.然后根據需要更改按鈕上的顯示文本。 在這種情況下，我將顯示文本更改為“開始閃爍”，如下圖所示。

7.重復上述步驟4和5，插入新按鈕并分配 停下來 此按鈕的宏。

8.更改此新按鈕的顯示文本。

然后，您會看到兩個分配了不同宏的按鈕被插入到工作表中。 看截圖：

從現在開始，單擊“開始閃爍”按鈕時，形狀開始以不同顏色閃爍。 如果要停止閃光，請單擊停止閃爍按鈕。

相關文章：如何在Excel中閃爍或閃爍指定單元格的文本？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel