【エクセル】 自作チェックボックス

質問

エクセルに標準であるチェックボックスは大きさが変えられないと聞きました。

なので、図形を使って四角を描いてそこをクリックすると真っ黒になり、またクリックすると白くなるっていう、マクロを組んで欲しいです
おねがいします。

テキストは要りません。四角くてクリックするごとに黒、白と変化するものが欲しいです。大丈夫です。

回答No.1

zap35 · ベストアンサー

丸投げ確信犯ですね(^^;
こんなマクロでしょう。標準モジュールシートに貼り付けて、オートシェイプ右クリック→マクロの登録してください

Sub cngBW()
　With ActiveSheet.Shapes(Application.Caller)
　　If .Fill.ForeColor.SchemeColor = 9 Then
　　　.Fill.ForeColor.SchemeColor = 8
　　Else
　　　.Fill.ForeColor.SchemeColor = 9
　　End If
　End With
End Sub

お礼

丸投げにお付き合いいただきありがとうございます。
まさにこうゆう風に作って欲しいと思っていた出来で、
とても感謝です！