HOME > 即効テクニック > Excel VBA > ユーザーフォーム関連のテクニック > ラベルを使ってフォームに直線を引く

即効テクニック

ユーザーフォーム関連のテクニック

ラベルを使ってフォームに直線を引く

(Excel 97)
ラベルのBorderStyleプロパティとHeightプロパティを使って、フォームに直線が引かれているように表示する事ができます。
BorderStyleプロパティは、コントロールまたはフォームの境界線のスタイルを設定します。実線の境界線を表示するためには、定数:fmBorderStyleSingleを設定します。
Heightプロパティは、オブジェクトの高さまたは幅をポイント単位で指定します。
サンプルでは、フォームが読み込まれたあとで、表示される前に発生するイベント「Initialize」でラベルのプロパティの設定をしています。
フォームにラベル「Label1」を配置してください。
Private Sub UserForm_Initialize()
    Label1.BorderStyle = fmBorderStyleSingle
    Label1.Height = 1
End Sub