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.をクリックして、ワークシートにボタンを挿入します Developer > インセット > ボタン（フォームコントロール） 以下のスクリーンショットのように。

5.ポップアップで マクロの割り当て ダイアログボックスで フラッシュ セクションに マクロ名 ボックスをクリックし、 OK

6.次に、必要に応じてボタンの表示テキストを変更します。 この場合、以下のスクリーンショットのように、表示テキストを「点滅開始」に変更します。

7.上記の手順4と5を繰り返して、新しいボタンを挿入し、 ストップイット このボタンへのマクロ。

8.この新しいボタンの表示テキストを変更します。

次に、異なるマクロを割り当てるXNUMXつのボタンがワークシートに挿入されていることがわかります。 スクリーンショットを参照してください：

これ以降、[点滅開始]ボタンをクリックすると、図形がさまざまな色で点滅し始めます。 フラッシュを停止したい場合は、点滅停止ボタンをクリックしてください。

関連記事：

• Excelで指定したセルのテキストを点滅または点滅させる方法は？