Excel ユーザーフォームの画像枠の表示・非表示を設定する-BorderStyle、BorderColor

Excelで、ユーザーフォームの画像の枠を表示したり、色を変更したり、非表示にしたりする記録です。

下図はExcel2016です。

Excelユーザーフォーム画像枠

 

< スポンサーリンク >

 

プロパティで設定

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

Excelユーザーフォーム画像枠

 

画像枠を赤に設定

プロパティウィンドウの[BorderStyle]欄を「1 - fmBorderStyleSingle」に設定すると枠が表示されます。

Excelユーザーフォーム画像枠

 

枠線を赤にしてみます。

プロパティウィンドウの[BorderColor]欄の「▼」をクリックします。

Excelユーザーフォーム画像枠

 

[パレット]タブをクリックします。

Excelユーザーフォーム画像枠

 

赤を選択します。

Excelユーザーフォーム画像枠

 

ユーザーフォームを実行すると画像の枠が赤になっています。

Excelユーザーフォーム画像枠

 

画像枠を透明に設定

プロパティウィンドウの[BorderStyle]欄を「0 - fmBorderStyleNone」に設定すると枠が透明になります。

Excelユーザーフォーム画像枠

Excelユーザーフォーム画像枠

 

VBAで設定

Initializeイベントを使って枠線を青と透明に設定してみます。

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

Excelユーザーフォーム画像枠

 

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

Excelユーザーフォーム画像枠

 

画像枠を青にするコードです。

Private Sub UserForm_Initialize()
    With Image1
        .BorderStyle = fmBorderStyleSingle
        .BorderColor = RGB(0, 0, 255)
    End With
End Sub

Excelユーザーフォーム画像枠

Excelユーザーフォーム画像枠

 

画像枠を透明にするコードです。

Private Sub UserForm_Initialize()
    Image1.BorderStyle = fmBorderStyleNone
End Sub

Excelユーザーフォーム画像枠

Excelユーザーフォーム画像枠

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ