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

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

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

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

No.1 ベストアンサー 回答者： zap35 回答日時： 2008/03/19 11:29

丸投げ確信犯ですね(^^;

こんなマクロでしょう。標準モジュールシートに貼り付けて、オートシェイプ右クリック→マクロの登録してください

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

この回答へのお礼

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

お礼日時：2008/03/19 13:13