ExcelVBA

ExcelVBA フォームに配置したラベルの文字を上下中央に配置する方法

ExcelVBA フォームに配置したラベルの文字を上下中央に配置する方法

 

ExcelVBA ユーザーフォームに配置したラベルの文字を上下中央に配置することで、見た目を整え、フォームのデザインを美しくします。使い方や注意点など、サンプルコードをもとに具体的に解説します。

 

📌 「これ、自動化できたらラクなのに…」と思ったこと、ありませんか？
実はその作業、Excelマクロで簡単に自動化できるかもしれません。
「でもマクロって難しそう…」という方のために、完全初心者向けの入門記事をご用意しました！

👇実務で“そのまま使える”テンプレ付きで、コピペするだけ！
初心者向けエクセルマクロの作り方を解説｜コピペOK実務テンプレ付き

 

Excel VBA ラベルの文字を上下中央に配置 利用シーン

以下のようなシーンで利用で表示します。

1.ユーザーフォームを使った入力フォームやガイド画面のラベルで、文字の見た目を調整したい。

2.ユーザーにとって読みやすいデザインを作成したい。

Excel VBA ラベルの文字を上下中央に配置｜使い方とポイント

使い方

ラベルの TextAlign プロパティ（左右位置）に加え、 AutoSize や Height プロパティを調整することで、文字を上下中央に見えるようにします。

ポイント

1.ラベルの高さが文字よりも大きい場合、上下位置の調整が必要です。

2. AutoSize プロパティを有効にすると、ラベルの高さや幅が文字サイズに応じて変化するため、中央揃えを維持しにくくなる場合があります。

 

Excel VBA  ラベルの文字を上下中央に配置のサンプルコード

フォームモジュール（ラベル配置）

ユーザーフォームに以下を配置

ユーザーフォームにラベル（例: Label1 ）を配置します。
ラベルの AutoSize を False に設定します。

Option Explicit

Private Sub UserForm_Initialize()
    ' ラベルのプロパティ設定
    With UserForm1.Label1
        .Caption = "上下中央"    ' ラベルの文字
        .TextAlign = fmTextAlignCenter ' 左右中央揃え
        .Width = 100            ' ラベル幅を設定
        .Height = 30            ' ラベル高さを設定

        ' 上下中央に見えるように位置調整
        .Top = (.Parent.Height - .Height) / 2
    End With
End Sub

 

自分の実力を客観的にチェックしたい…。そんな方のために、自分に合ったスタート地点がわかる無料のExcelVBAベーシック選択問題集をご用意しました。

👉無料ExcelVBAベーシック選択問題138問

 

標準モジュール（ユーザーフォームを表示）

Option Explicit

Sub ShowUserForm()
    ' ユーザーフォームを表示
    UserForm1.Show
End Sub

ユーザーフォーム内のラベルを上下中央に配置し、見やすいデザインを実現。データ入力フォームや案内画面の見た目を整えられます。

フォームモジュールのコードをコピペで動作させることで、簡単に設定可能です。これにより、ユーザーにとって見やすく、美しいフォームデザインが実現します。

 

「Excel VBAで自動化するコードのベースが習得できる解説書」

👉初心者の人は、Excel VBAエキスパートベーシック解説書

👉マクロの基礎知識がある人は、Excel VBAエキスパートスタンダード解説書

 

Excel VBAエキスパートベーシックとスタンダード、どちらを選べばいいか判断が難しい…。そんな方のために、自分に合ったスタート地点がわかる無料のExcelVBAベーシック選択問題集を用意しました。

👉無料ExcelVBAベーシック選択問題138問