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を選択し、OKボタンをクリックします。

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

7. 上記のステップ4と5を繰り返して新しいボタンを挿入し、StopItマクロをこのボタンに割り当てます。

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

これで、異なるマクロが割り当てられた2つのボタンがワークシートに挿入されました。スクリーンショットをご覧ください：

これ以降、Start blinkingボタンをクリックすると、図形が異なる色で点滅を始めます。点滅を停止したい場合は、Stop blinkingボタンをクリックしてください。

関連記事：

• Excelで指定されたセルのテキストを点滅またはフラッシュさせるにはどうすればよいですか？