Excel : チェックボックスの代わりに「コマンドボタン」

スポンサーリンク

 

 

 

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

 

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

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

 画像形式がPNGです。

画像形式は、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」何も入れなければ、画像削除になります。

 

コメント

タイトルとURLをコピーしました