Excel : チェックボックスのようなボタンを作る（VBA要）

Excelのcheckboxはあまりにも小さすぎます。年寄りには使いづらいものです。ボタンでそれらしいものを作ってみました。

機種依存文字（✔）をボタンに貼り付けられない

✔　windowsではOKですが、Macはダメなようです。

そこで、ボタンに画像を貼り付けようとしたら、拒否されました。

　画像形式がPNGです。

画像形式は、BMPかJPG出ないとダメなようです。

ボタンに画像をつける動画

画像削除は、Picture欄にカーソルを入れ「Delete」キー

押すたびに、画像を変える

pictureプロパティの詳細を得る方法がわかりません。
画像の名前を取得できればIF分が使えるのですが、取得方法がわかりません。

そこで、Captionに「１」「０」を設定しそれで今の画像が何かを判断しています。

Private Sub CommandButton1_Click()
    If (CommandButton1.Caption = "1") Then
        CommandButton1.Picture = LoadPicture("C:\Data\Excel\Excel_white.jpg")
        CommandButton1.Caption = "0"
        
    Else
        CommandButton1.Picture = LoadPicture("C:\Data\Excel\Excel_check.jpg")
        CommandButton1.Caption = "1"
    End If
End Sub

画像データ（jpg）:　画像コピーで使ってください。

画像を消すマクロ

Private Sub Change_Click()
    CommandButton1.Picture = LoadPicture("")
End Sub

LoadPictureでパラメータに「Null」何も入れなければ、画像削除になります。