如何在 Excel 圖表中加入註解？

假設您已建立如截圖所示的折線圖，並希望在圖表區域內加入自訂註解。這是常見的做法，能直接在視覺化圖表上提供額外脈絡，讓閱讀報告的使用者輕鬆掌握觀察結果與相關說明。

1. 按一下圖表以啟用 Chart Tools，接著前往 Format > Text Box Text Box（位於）Insert Shapes 群組內）。請參閱下方截圖。
注意：若您使用的是 Excel 2010，請改為按一下 LayoutLayout > Text Box（位於）Chart Tools 選項卡下），即可獲得類似結果。

2. 如下方示意圖所示，在圖表區域內任意位置拖曳滑鼠即可繪製文字框，並直接輸入所需註解。此方法能讓您輕鬆加入說明、強調關鍵結果，或針對圖表特定區段進行標註，使溝通更清晰明確！

3. 使用 Home 選項卡上的 Font 群組，輕鬆自訂註解的字型與樣式！您可以調整字體大小、變更字型顏色、套用粗體或斜體等格式選項，讓註解更加醒目，或完美呼應文件主題。

完成所需格式設定後，您的註解將直接顯示於圖表中，如下方截圖所示。此解決方案快速簡便，適用於註解內容無需頻繁變更的情況。

適用情境：當您需要在圖表中加入一次性或手動註解，且無需動態更新時，請使用此方法。
限制：若圖表底層資料有所變更，文字框內容不會自動更新；因此，一旦圖表版面配置或資料經過調整，您可能需要手動編輯或移動註解。

有時，您會希望圖表中的註解能即時反映特定工作表儲存格內的資料或評論，並在儲存格內容更新時自動同步文字。這種做法特別適合用於動態報表、儀表板或簡報，尤其當註解內容與關鍵指標、趨勢，或可能因團隊協作與持續分析而變動的評論緊密相關時，更能發揮實用價值。

1. 首先，選取圖表，並使用 Text Box 工具在圖表區域內繪製文字框（如有需要，請參閱前述步驟指引）。

2. 保持文字框處於選取狀態，點擊工作表上方的編輯欄，輸入等號（=）及欲連結儲存格的參照位址，例如：

=Sheet1!B2

這會將文字框內容直接連結至 Sheet 1 的 B2 儲存格，讓文字框即時顯示該儲存格中的內容。

3. 按下 Enter 鍵確認。現在，每當您更新該儲存格時，圖表中的文字框將立即同步顯示變更內容！

優點：此方法極適合用於儀表板與即時報告，尤其當註解需即時反映最新資料、計算結果或使用者更新的備註時，效果更佳！不僅提升團隊協作效率，更能大幅減少手動調整。
實用提示：將文字框連結至包含公式或自動生成訊息的儲存格，即可輕鬆實現自動化註解。
注意事項：若刪除來源儲存格，連結將中斷並顯示參照錯誤。複製或移動工作表後，務必檢查儲存格參照是否正確。
限制：整個圖表必須與所參照的儲存格位於同一張工作表上；若跨工作表，則必須使用如範例所示的完整參照格式。

對於更進階的需求——例如批次處理多個圖表的註解、自動更新註解，或根據資料條件動態添加文字——您可透過簡單的 VBA 巨集輕鬆實現。此解決方案特別適合包含多個圖表物件的報告，不僅確保註解新增與更新的一致性，也十分契合熟悉 Excel 自動化例行作業的使用者。

1. 選取您要加入註解的圖表。

前往開發人員 > Visual Basic，或按下 Alt + F11. 在開啟的對話方塊中，點選插入 > 模組，然後將下列程式碼複製並貼上至模組視窗中：

Sub AddOrUpdateChartNote()
'Updated by extendoffice
    Dim chtObj As ChartObject
    Dim cht As Chart
    Dim ws As Worksheet
    Dim linkedCell As Range
    Dim noteShape As Shape
    Dim noteText As String
    Dim foundNote As Boolean
    Dim xTitleId As String

    On Error GoTo ErrHandler
    xTitleId = "Kutools for Excel"

    Set ws = ActiveSheet

    If ActiveChart Is Nothing Then
        MsgBox "Please select a chart first.", vbExclamation, xTitleId
        Exit Sub
    Else
        Set cht = ActiveChart
    End If

    Set linkedCell = Application.InputBox("Select the cell for note content:", xTitleId, Type:=8)
    If linkedCell Is Nothing Then Exit Sub

    noteText = linkedCell.Value

    foundNote = False
    For Each noteShape In cht.Shapes
        If LCase(Left(noteShape.Name, 9)) = "chartnote" Then
            noteShape.TextFrame.Characters.Text = noteText
            foundNote = True
            Exit For
        End If
    Next noteShape

    If Not foundNote Then
        Set noteShape = cht.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 20, 250, 30)
        noteShape.Name = "ChartNote_" & Format(Now, "hhnnss")
        noteShape.TextFrame.Characters.Text = noteText
        noteShape.TextFrame.AutoSize = True
        noteShape.Fill.ForeColor.RGB = RGB(255, 255, 200) ' light yellow background
        noteShape.Line.ForeColor.RGB = RGB(100, 100, 100)
    End If

    MsgBox "Chart note updated successfully!", vbInformation, xTitleId
    Exit Sub

ErrHandler:
    MsgBox "An error occurred. Please ensure a chart is selected and try again.", vbExclamation, xTitleId
End Sub

2 接著按一下按鈕以執行巨集。系統將提示您選取包含註解文字的儲存格，選取後請按一下「確定」。

巨集會自動在圖表上加入黃色文字框，並顯示所選儲存格中的文字內容。

若註解已存在，巨集會以新儲存格的值更新現有註解，不會產生重複項目。

優點：自動化複雜任務、確保註解一致性，並大幅減少重複性手動作業。您可輕鬆調整巨集，靈活配合特定的註解更新邏輯或格式需求。
疑難排解：若您未選取圖表，巨集將顯示訊息：「請先選擇一個圖表。」
注意事項：執行巨集前，務必先儲存您的工作；若您不熟悉程式設計，請謹慎編輯 VBA 程式碼。

在 Excel 中建立常態分配曲線圖表範本

在 Excel 中中斷圖表座標軸