如何在 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. 然後點擊 確定，所選儲存格的註解框已自動調整至適配註解內容。

提示：此程式碼無法自動調整新增的註解框大小。

自動調整當前工作表或所有工作表中註解框的大小以適應其內容

您可以嘗試 Kutools for Excel 的自動調整註解功能，自動調整當前工作表或整個工作簿中所有註解框的大小。請按照以下步驟操作。

1. 若要自動調整當前工作表中註解框的大小以適應其內容，請點擊 Kutools > 更多 > 自動調整註解 > 當前工作表。

若您想自動調整整個工作簿中所有註解框的大小，請點擊 Kutools > 更多 > 自動調整註解 > 全部工作表。請參閱截圖：

然後所有註解框都會自動調整大小以適應其內容。請參閱截圖：

注意：

• 1. 自動調整註解框大小後，再次編輯註解時，註解框會隨著內容自動擴展或縮小。
• 2. 對於新插入的註解，您需要再次啟用此自動調整註解功能，以調整所有新插入的註解框大小。

相關文章：

• 如何在 Excel 中更改註解框的形狀？
• 如何在 Excel 中更改所有儲存格中的註解格式？
• 如何將所有註解列印到新的工作表或工作簿中？
• 如何在 Excel 的註解中插入圖片或影像？