Excelでコンテンツに合わせてテキストボックスを自動的にサイズ変更するにはどうすればよいですか？

ワークシートに挿入した後、テキストボックスのサイズは固定されます。そのため、挿入または削除したテキストに合わせてサイズが調整されることはありません。この記事では、Excelでテキストボックスを自動的にサイズ変更する方法を紹介します。

「図形をテキストに合わせてサイズ変更」機能を使用して、コンテンツに合わせてテキストボックスを自動的にリサイズ
VBAコードを使用してすべてのテキストボックスをコンテンツに合わせて自動的にリサイズ

「図形をテキストに合わせてサイズ変更」機能を使用して、コンテンツに合わせてテキストボックスを自動的にリサイズ

以下の手順でテキストボックスのプロパティを変更し、入力または削除したテキストに応じて自動的にサイズ変更されるようにすることができます。

1. テキストボックスを挿入した後、テキストボックスの罫線を右クリックし、右クリックメニューから「サイズとプロパティ」を選択します。スクリーンショットをご覧ください：

2. 右側に表示される 図形の書式設定 ウィンドウがワークシートの右側、「 サイズとプロパティ 」タブの下に表示されます。「 図形をテキストに合わせてサイズ変更 」チェックボックスを「 テキストボックス 」セクションで選択し、「 図形の書式設定 」ウィンドウを閉じます。スクリーンショットをご覧ください：

これで、テキストボックスは今後、コンテンツに合わせて自動的にサイズ変更されます。

注: この方法では、複数のテキストボックスがある場合、それぞれのプロパティを個別に変更する必要があります。

VBAコードを使用してすべてのテキストボックスをコンテンツに合わせて自動的にリサイズ

すでに複数のテキストボックスがあるワークシートの場合、次のVBAコードを使用すると、それらを一度に自動的にコンテンツに合わせてサイズ変更できます。

1. Alt + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、「挿入」＞「モジュール」をクリックします。その後、以下のVBAコードをモジュールウィンドウにコピーして貼り付けます。

VBAコード：ワークシート内のすべてのテキストボックスをコンテンツに合わせて自動的にリサイズ

Sub TextBoxResizeTB()
    Dim xShape As Shape
    Dim xSht As Worksheet
    On Error Resume Next
    For Each xSht In ActiveWorkbook.Worksheets
        For Each xShape In xSht.Shapes
            If xShape.Type = 17 Then
                xShape.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
                xShape.TextFrame2.WordWrap = True
            End If
        Next
    Next
End Sub

3. F5キーを押してコードを実行します。すると、現在のワークシート内のすべてのテキストボックスが、以下のようにコンテンツに合わせて自動的にサイズ変更されます。

そして、これらのテキストボックスは、今後入力または削除する内容に応じて自動的にサイズ変更されます。

関連記事：

• Excelでコメントボックスをその内容に合わせて自動的にサイズ変更するにはどうすればよいですか？