コントロールのサイズを自動調整する(AutoSizeプロパティ)

ユーザーフォームに設置したコントロールに含まれるコンテンツの大きさに合わせてコントロールのサイズを自動で調整するかどうか設定するには AutoSize プロパティを使用します。ここでは Excel のユーザーフォームで AutoSize プロパティを使ってコントロールのサイズを自動調整する方法について解説します。

(Last modified: 2023年01月15日)

サイズを自動調整するか設定する

コントロールに含まれるコンテンツに合わせてサイズを自動調整するか設定するには AutoSize プロパティを使用します。例えばラベルの AutoSize プロパティの値はデフォルトで「False」となっておりサイズの自動調整は行われません。

ユーザーフォームの実行をクリックしてユーザーフォームを実際に表示してみるとラベルがそのままのサイズで表示されることが確認できます。

コントロールのサイズをコントロールに含まれるコンテンツに合わせて自動的に調整するには、 AutoSize プロパティの項目をクリックしてください。そして表示されたドロップダウンメニューをクリックし、「True」をクリックしてください。

コントロールのサイズが自動的に調整されました。今回はサイズが縮小していますが、拡大することもあります。

このように AutoSize プロパティの値を変更することで、コントロールのサイズを自動調整するように設定することができます。

VBAのプログラムの中でAutoSizeプロパティを設定する

プロパティウィンドウを使って AutoSize プロパティの値を変更する代わりに、 VBA のコードを記述して AutoSize プロパティの値を変更することもできます。

プログラムの中で AutoSize プロパティを設定する場合は次の書式を使用します。

オブジェクト.AutoSize [= Boolean ]

対象のオブジェクトの AutoSize プロパティに対して True または「False」を代入します。

True を設定した場合はコントロールのサイズは自動調整されます。また「False」を設定した場合はコントロールのサイズは自動調整されません。

簡単なサンプルで試してみます。ユーザーフォームが表示される前に発生する Initialize イベントに対するイベントプロシージャを作成し、その中で AutoSize プロパティの値を設定します。ユーザーフォームが表示される前にコントロールのプロパティの設定が行われます。

※ Initialize イベントに対するイベントプロシージャの使い方については「ユーザーフォームを表示する直前に発生するイベント(Initializeイベント)」を参照されてください。

ユーザーフォームのコントロールが何もないところをダブルクリックしてください。

ユーザーフォームの規定のイベントである Click イベントに対するイベントプロシージャが表示されます。

今回はユーザーフォームの Initialize イベントに対するイベントプロシージャを使用するので、コードウィンドウで次のようにイベントプロシージャを追加で記述してください。

Private Sub UserForm_Initialize()
    Label1.AutoSize = True
    Label2.AutoSize = False
End Sub

これでコードの記述は完了です。では実際に試してみます。「Sub/ユーザーフォームの実行」をクリックしてください。

ユーザーフォームが表示されました。追加されている 2 つのラベルで、上のラベルはサイズが自動調整され、下のラベルはサイズが自動調整されていないことが確認できます。

このように VBA のプログラムの中で AutoSize プロパティの値を変更することができました。

サイズの指定とAutoSizeプロパティを両方設定した場合

AutoSize プロパティに「True」を設定することで、コントロールのコンテンツに合わせてサイズが自動調整されますが、同じコントロールに対して Width プロパティや Height プロパティを使ってサイズを指定した場合は、指定したサイズが優先されます。

※ コントロールのサイズの指定について詳しくは「コントロールのサイズ(幅と高さ)を設定する(Width,Heightプロパティ)」を参照されてください。

先ほどのサンプルプログラムでユーザーフォームの Initialize イベントに対するイベントプロシージャを次のように変更してみます。

Private Sub UserForm_Initialize()
    Label1.AutoSize = True
    With Label2
        .AutoSize = True
        .Width = 150
        .Height = 50
    End With
End Sub

「Sub/ユーザーフォームの実行」をクリックしてください。ユーザーフォームが表示されました。今回は 2 つのラベルでそれぞれサイズが自動調整されるように設定していますが、下のラベルはサイズを明示的に指定しているため、指定したサイズの方が優先して適用されているのが確認できます。

このようにサイズの自動調整とサイズの指定を両方行った場合はサイズの指定が優先されます。

-- --

Excel のユーザーフォームで AutoSize プロパティを使ってコントロールのサイズを自動調整する方法について解説しました。

著者 / TATSUO IKURA

プログラミングや開発環境構築の解説サイトを運営しています。