ユーザーフォームに配置したコマンドボタンに表示されるキャプションは「文字」なのですが、複数のボタンが並んでいる時は「文字」ではなく「画像」で表示させたいと思ったことありませんか？

JPEG画像・BMPファイルなどを用意すれば、意外と簡単にコマンドボタンの文字の部分を画像にすることができますので、設定方法をご紹介いたします。

Picture設定で画像選択

コマンドボタンに画像を設定する方法は2つあり、プロパティ設定で済ませる方法とVBAコードを記述して設定する2つの方法があります。

プロパティで画像設定

何かしらの条件によってコマンドボタンに設定した画像を変更させるような事が無く、常時表示させるならばVBAコードを記述しなくてもプロパティから設定することができますので、とても簡単です。

STEP

プロパティ画面表示

ユーザーフォームに配置したコマンドボタンをクリックすると、VBA画面左下にコマンドボタンのプロパティが表示されます。

ダブルクリックするとVBAコード記述画面に切り替わってしまいます

STEP

オブジェクト名「Picture」選択

アルファベット順に項目（オブジェクト）が並んでいるので、真ん中ぐらいに「Picture」があります。

その右側の空欄の更に右端に「…」という部分をクリックします。

STEP

ピクチャの読み込み

「…」をクリックすると自動的にダイアログが表示されるので、設定したい保存場所にあるフォルダーから画像ファイルを選択し、開くをクリックして設定します。

すると、プロパティのPictureの空欄だった場所に（ビットマップ）と表示され、コマンドボタンに画像表示設定が完了します。

画像変更・消去

ちなみにプロパティで設定した画像を変更するならば、上記の手順で再度行えば画像変更はできます。

また、設定済みの画像を消去して、元の文字（キャプション）にするには、画像設定により表示された「ビットマップ」にカーソルを合わせてクリックしてから、「delete」キーを押せば画像消去できます。

VBAコードで画像設定

LoadPicture関数を使う事により、ユーザーフォームを開いた時に自動的にコマンドボタンの文字を画像に変更したり、コマンドボタンをクリックしたら画像に切り替わるように設定することができます。

ここで少しややこしいのが、画像ファイル名を正確に記述しなくてはいけない事です。

画像ファイル名が「train.jpg」なのですが、これだけではマクロエラーになりますので、どこのドライブのどこのファイルに保存されている「train.jpg」ファイルまで必要になります。

画像ファイル名の調べ方

それほど難しくはなく正確なファイル名もコピペできるので簡単です。

波乗りアヒル

コマンドボタンのキャプションを文字から画像にすると見栄えが変わるので、見つけやすくなるのでコピペして活用してみてはいかがですか？

関連記事