OfficeType

VBA~ユーザーフォームのコマンドボタンで背景色の設定をしよう~Excel

ユーザーフォームのコマンドボタンの背景色を設定したい場合はBackColorプロパティを設定します。

書き方

オブジェクト名.BackColor = 色番号

オブジェクト名はユーザーフォームのオブジェクト名と、コマンドボタンのオブジェクト名を指定します。オブジェクト名の確認方法は作成したユーザーフォームファイルをクリックするとユーザーフォームが表示されます。ユーザーフォーム全体を選択するとプロパティウィンドウにオブジェクト名という項目があるので、それがユーザーフォームのオブジェクト名になります。次にコマンドボタンを選択すると同じようにコマンドボタンのオブジェクト名が確認できます。プロパティウィンドウが表示されていない場合はメニューの表示からプロパティウィンドウをクリックすると表示されます。

UserForm1というユーザーフォームを作成し、CommandButton1というコマンドボタンを設定した場合、下のコードを実行するとコマンドボタンにユーザーが入力する背景色が赤になります。

Sub test1()

Load UserForm1
UserForm1.CommandButton1.BackColor = RGB(255, 0, 0)
UserForm1.Show

End Sub

image-01

プロパティウィンドウで設定

作成したユーザーフォームのファイルをクリックしプロパティウィンドウの選択欄からコマンドボタンを選択します。プロパティウィンドウにBackColorの項目があるのでクリックすると▼マークが表示されるのでパレットタブをから好きな色を選択してください。プロパティウィンドウが表示されていない場合はメニューの表示からプロパティウィンドウをクリックすると表示されます。

image-02

image-03

image-04

image-05

image-06

image-07