Excelのcheckboxはあまりにも小さすぎます。年寄りには使いづらいものです。ボタンでそれらしいものを作ってみました。
機種依存文字(✔)をボタンに貼り付けられない
✔ windowsではOKですが、Macはダメなようです。
そこで、ボタンに画像を貼り付けようとしたら、拒否されました。
画像形式は、BMPかJPG出ないとダメなようです。
ボタンに画像をつける動画
画像削除は、Picture欄にカーソルを入れ「Delete」キー
押すたびに、画像を変える
pictureプロパティの詳細を得る方法がわかりません。
画像の名前を取得できればIF分が使えるのですが、取得方法がわかりません。
そこで、Captionに「1」「0」を設定しそれで今の画像が何かを判断しています。
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」何も入れなければ、画像削除になります。
コメント