如何在 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. 在彈出的對話方塊中，指定您要將圖表移動至的位置，然後點擊確定按鈕。

現在，所選圖表已移至指定位置，並自動調整為限定區域的大小。請參閱以下截圖：