如何在 Excel 中設置圖表的絕對位置？

例如，您已經創建了一個圖表並將其隨意放置在工作表中，如下截圖所示。現在，我將介紹一種 VBA 方法，可以快速輕鬆地將圖表移動到精確且絕對的位置。

1. 選擇要設置絕對位置的圖表，然後按 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模組，並將以下 VBA 粘貼到新的模組窗口中。

VBA：設置 Excel 中圖表的絕對位置

Sub Test()
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:J13")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub

注意：在上述代碼中，Set xRg = Range("D1:J13") 表示將圖表移動並放置在 D1:J13 區域內。您可以根據需要更改該區域。

3. 按 F5 鍵或點擊 執行 按鈕以運行此 VBA。

現在，您會看到圖表已移動到您在 VBA 中指定的精確位置。請參見截圖：

如果您安裝了 Kutools for Excel，您可以應用其出色的圖表工具 – 設置圖表絕對位置 來將圖表移動並調整大小到 Excel 中的指定區域。

1. 選擇要設置為絕對位置的圖表，然後點擊 Kutools > 圖表 > 圖表工具 > 設置圖表絕對位置。

2. 在彈出的對話框中，指定要將圖表移動到的位置，然後點擊 確定 按鈕。

現在，所選圖表已移動到指定位置並同時調整大小至指定區域。請參見截圖：