ユーザーフォームに配置したコマンドボタンに表示されるキャプションは「文字」なのですが、複数のボタンが並んでいる時は「文字」ではなく「画像」で表示させたいと思ったことありませんか?
JPEG画像・BMPファイルなどを用意すれば、意外と簡単にコマンドボタンの文字の部分を画像にすることができますので、設定方法をご紹介いたします。
Picture設定で画像選択
コマンドボタンに画像を設定する方法は2つあり、プロパティ設定で済ませる方法とVBAコードを記述して設定する2つの方法があります。
プロパティで画像設定
何かしらの条件によってコマンドボタンに設定した画像を変更させるような事が無く、常時表示させるならばVBAコードを記述しなくてもプロパティから設定することができますので、とても簡単です。
ユーザーフォームに配置したコマンドボタンをクリックすると、VBA画面左下にコマンドボタンのプロパティが表示されます。
アルファベット順に項目(オブジェクト)が並んでいるので、真ん中ぐらいに「Picture」があります。
その右側の空欄の更に右端に「…」という部分をクリックします。
「…」をクリックすると自動的にダイアログが表示されるので、設定したい保存場所にあるフォルダーから画像ファイルを選択し、開くをクリックして設定します。
すると、プロパティのPictureの空欄だった場所に(ビットマップ)と表示され、コマンドボタンに画像表示設定が完了します。
画像変更・消去
ちなみにプロパティで設定した画像を変更するならば、上記の手順で再度行えば画像変更はできます。
また、設定済みの画像を消去して、元の文字(キャプション)にするには、画像設定により表示された「ビットマップ」にカーソルを合わせてクリックしてから、「delete」キーを押せば画像消去できます。
VBAコードで画像設定
LoadPicture関数を使う事により、ユーザーフォームを開いた時に自動的にコマンドボタンの文字を画像に変更したり、コマンドボタンをクリックしたら画像に切り替わるように設定することができます。
Private Sub CommandButton1_Click()
CommandButton1.Picture = LoadPicture(“C:\Users\tripbowl\VBA用画像\train.jpg”)
End Sub
- コマンドボタン1がクリックされたら
- コマンドボタン1の画像は()内に指定された画像ファイルに設定する
- マクロ記録終了
ここで少しややこしいのが、画像ファイル名を正確に記述しなくてはいけない事です。
画像ファイル名が「train.jpg」なのですが、これだけではマクロエラーになりますので、どこのドライブのどこのファイルに保存されている「train.jpg」ファイルまで必要になります。
画像ファイル名の調べ方
それほど難しくはなく正確なファイル名もコピペできるので簡単です。
表示している画像ファイルにマウスを合わせて、右クリックをするとダイアログが表示されるので、一番下のプロパティをクリックします。
画像のプロパティダイアログが表示され、真ん中あたりに「場所:」という項目があります。
その右側にC:・・・・・・と続く(ここではCドライブに保存されているの画像なのでC:と表示)文字が正確な保存されているファイル名になります。
長いファイル名の上でクリックしてから右クリックをすると、ダイアログが表示されるので、「すべて選択」をクリックするとファイル名全体が青色になり選択状態になるので、コピーしてVBAコードに張り付ければ完成です。
コマンドボタンのキャプションを文字から画像にすると見栄えが変わるので、見つけやすくなるのでコピペして活用してみてはいかがですか?
関連記事
-
コマンドボタン
VBAコマンドボタンにホームページURLを開く設定をする方法
ホームページのURLアドレスをユーザーフォームのコマンドボタンに登録して、クリックすると指定したホームページが別ウィンドウで開くようにしたいと思ったことありませ… -
コマンドボタン
複数一括処理でコマンドボタンのキャプションをセルの値に書き換える方法
ユーザーフォームに複数配置したコマンドボタンの名前を1個ずつ書くのは意外と面倒なので、セルの値から自動的に取得して書き換えができたら便利だと思いませんか? エ… -
コマンドボタン
コマンドボタンのキャプションを文字ではなく画像にする2つの方法
ユーザーフォームに配置したコマンドボタンに表示されるキャプションは「文字」なのですが、複数のボタンが並んでいる時は「文字」ではなく「画像」で表示させたいと思… -
コマンドボタン
コマンドボタンの表示文字(キャプション)を2行に改行表示する方法
エクセルで作業効率化の為に作ったオリジナルの入力フォーム(ユーザーフォーム)に配置したコマンドボタンの表示名を1行表示ではなく、改行して2行表示にしたいと思っ… -
コマンドボタン
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
コマンドボタン
エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法
ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか? 不要な項目をワンクリックで切り替え… -
コマンドボタン
コマンドボタンの文字を名前・出席・欠席と繰り返し変更する方法
名前が表示させているコマンドボタンを1回押すと「出席」、もう1回押すと「欠席」、さらに1回押すと再び名前表示するようにコマンドボタンのキャプションを変更させたい…
紅葉スポット
-
古峯神社の天狗の御朱印と紅葉名所へ鹿沼駅からバスで行く
御朱印を集める趣味が流行っていますが、ここ古峯神社の御朱印は天狗をイメージしたデザインで何種類あるかわかないぐらい様々あります。 そして、紅葉見頃となる10月中… -
けさかけ橋と小中大橋の狭い山道でバスも行けない秘境の紅葉名所へ
小さいの?大きいの?中くらいなの?って一瞬思ってしまう小中大滝(こなかおおたき)。 落差100mほどある滝で紅葉シーズンには鮮やかな絶景の中に水が落ちる景色を見る… -
旧碓氷峠見晴台へバスで旧軽井沢駅から紅葉展望へ滞在時間20分
軽井沢と言えば長野県ですが、旧碓氷峠見晴台は長野県と群馬県の県境に位置するのですが、群馬県の観光スポットというよりは、長野県ですね。 ここ旧碓氷峠見晴台からは… -
埼玉県第1号のダム「有間ダム」によりできた名栗湖畔の鏡面紅葉へ
初!と付くものはやっぱり宣伝したい、そして四季折々の景色が見られる自然絶景スポットならばなおさらですよね。 埼玉県飯能市にある名栗湖へ飯能駅からバスで行くこと… -
「乙女の湖」鎌北湖畔の湖面反射が美しい紅葉絶景へ東毛呂駅からバス
【紅葉見頃】 飯能市の北にある入間郡毛呂山町の山中にある鎌北湖は、毛呂山町ホームページによると昭和10年に完成した農業用貯水池として作られた人工湖で、周囲2㎞… -
ムーミンをイメージしたトーベ・ヤンソンあけぼの子どもの森公園の紅葉
入間市と飯能市の境界にある自然公園で、ムーミンの世界をイメージして作られてライトアップも盛んに行われて、幻想的な世界を体験することができます。 また、秋の紅葉…