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

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

テキスト機能に合わせて図形のサイズを変更することにより、コンテンツに合わせてテキストボックスのサイズを自動変更します
VBAコードでコンテンツに合わせてすべてのテキストボックスのサイズを自動変更

---

テキスト機能に合わせて図形のサイズを変更することにより、コンテンツに合わせてテキストボックスのサイズを自動変更します

テキストボックスのプロパティを次のように変更して、入力または削除したテキストに合わせて自動的にサイズを変更することができます。

1.テキストボックスを挿入した後、テキストボックスの境界線を右クリックし、[ サイズとプロパティ 右クリックメニューから。 スクリーンショットを参照してください：

2.あなたは見ることができます 書式の書式 ペインは、ワークシートの右側の サイズとプロパティ タブ、チェック テキストに合わせて図形のサイズを変更する 内箱 テキストボックス セクションを閉じてから、 書式の書式 ペイン。 スクリーンショットを参照してください：

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

注意：この方法では、変更するテキストボックスが複数ある場合、テキストボックスのプロパティをXNUMXつずつ変更する必要があります。

---

VBAコードでコンテンツに合わせてすべてのテキストボックスのサイズを自動変更

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

1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下の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のコンテンツに合わせて自動サイズ設定するにはどうすればよいですか？