Excelユーザーフォームコマンドボタン背景色変更

Excelで、ユーザーフォームのコマンドボタンの背景色を変更する記録です。

下図はExcel2016です。

< スポンサーリンク >





プロパティで設定

コマンドボタンの背景色を透明にしてみる

VBE上でコマンドボタンをアクティブにし、プロパティウィンドウのボタンをクリックします。

Excelユーザーフォームボタン背景色

 

プロパティウィンドウの[BackStyle]欄の「0 – fmBackStyleTransparent」を選択します。

Excelユーザーフォームボタン背景色

 

わかりやすいようにフォーム自体の背景色を黄色にしてみます。

Excelユーザーフォームボタン背景色

 

ユーザーフォームを実行すると、ボタンの背景色は透明になっています。

Excelユーザーフォームボタン背景色

 

コマンドボタンの背景色をピンクにしてみる

プロパティウィンドウの[BackStyle]欄の「1 – fmBackStyleOpaque」を選択し、[Backcolor]欄の「▼」をクリックします。

Excelユーザーフォームボタン背景色

 

[BackColor]欄をピンクに設定します。

Excelユーザーフォームボタン背景色

 

ユーザーフォームを実行すると、ボタンの背景色はピンクになっています。

Excelユーザーフォームボタン背景色

 

VBAで設定

Initializeイベントを使って、コマンドボタンの背景色を変更してみます。

ユーザーフォームをダブルクリックします。

Excelユーザーフォームボタン背景色

 

右側のプロシージャボックスで「Initialize」を選択します。

Excelユーザーフォームボタン背景色

 

コマンドボタンの背景色を透明に設定するコードです。

Private Sub UserForm_Initialize()
    CommandButton1.BackStyle = fmBackStyleTransparent
End Sub

Excelユーザーフォームボタン背景色

Excelユーザーフォームボタン背景色

 

コマンドボタンの背景色を緑に設定するコードです。

Private Sub UserForm_Initialize()
    With CommandButton1
        .BackStyle = fmBackStyleOpaque
        .BackColor = RGB(0, 255, 0)
    End With
End Sub

Excelユーザーフォームボタン背景色

Excelユーザーフォームボタン背景色

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします