Excelでコメントボックスを自動サイズ調整して内容に合わせる方法

セルにコメントを挿入すると、コメントボックスのサイズはデフォルトになります。多くのテキストを入力すると、一部の内容が直接表示されません。コメントボックスのサイズを内容に自動的に合わせることは可能ですか？

ワークシートでコメントボックスを自動サイズ調整して内容に合わせる
セル範囲でコメントボックスを自動サイズ調整して内容に合わせる
素晴らしいツールでアクティブなシートまたは全シートのコメントボックスを簡単に自動サイズ調整して内容に合わせる

ワークシートでコメントボックスを自動サイズ調整して内容に合わせる

Excelでは、コメントボックスを手動で一つずつ必要なサイズにドラッグできますが、多数のコメントボックスをサイズ変更する必要がある場合、この方法は面倒で時間がかかります。この場合、以下のVBAコードを適用できます。

1. ALT + F11キーを押し続けると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 挿入 > モジュールをクリックし、モジュールウィンドウに次のマクロを貼り付けます。

VBAコード: ワークシート内のコメントボックスを自動サイズ調整

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. 次にF5キーを押してこのコードを実行すると、アクティブなワークシート内のすべてのコメントボックスが以下のスクリーンショットのように内容に合わせてサイズ変更されます。

ヒント: このコードは現在のワークシートでのみ機能し、新しく追加したコメントボックスを自動的にサイズ変更することはできません。

セル範囲でコメントボックスを自動サイズ調整して内容に合わせる

セルのコメントボックスを自動サイズ調整するだけなら、以下のVBAコードを使用できます。

1. ALT + F11キーを押し続けると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 挿入 > モジュールをクリックし、モジュールウィンドウに次のマクロを貼り付けます。

VBAコード: セル範囲内のコメントボックスを自動サイズ調整

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. 次にF5キーを押してこのコードを実行すると、コメントボックスをサイズ変更したいセル範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4.そしてOKをクリックすると、選択したセルのコメントボックスがコメント内容に合わせて自動調整されます。

ヒント: このコードは新しく追加したコメントボックスを自動的にサイズ変更することはできません。

アクティブなシートまたは全シートでコメントボックスを自動サイズ調整して内容に合わせる

お試しください コメントのサイズを自動調整する ユーティリティを Kutools for Excel を使用してExcelのアクティブなシートまたは全シートのすべてのコメントボックスを自動的にサイズ変更します。以下の手順に従ってください。

1. アクティブなシートでコメントボックスを内容に合わせて自動サイズ調整するには、Kutools > その他 > コメントのサイズを自動調整する > アクティブなシートをクリックしてください。

ワークブック全体のすべてのコメントボックスを自動サイズ調整したい場合は、Kutools > その他 > コメントのサイズを自動調整する > 全シートをクリックしてください。スクリーンショットを参照してください。

すると、すべてのコメントボックスが自動的に内容に合わせてサイズ変更されます。スクリーンショットを参照してください。

注意:

• 1. コメントボックスを自動サイズ調整した後、コメントを再編集すると、コメントボックスは内容に合わせて自動的に拡大または縮小されます。
• 2. 挿入した新しいコメントについては、このコメントのサイズを自動調整するユーティリティを再度有効にして、新しく挿入したすべてのコメントボックスをサイズ変更する必要があります。

関連する記事:

• Excelでコメントボックスの形状を変更する方法
• Excelでセル内のすべてのコメント書式を変更する方法
• Excelで新しいワークシートまたはワークブックにすべてのコメントを一覧表示する方法
• Excelでコメントに画像を挿入する方法