例如，您創建了一個圖表並將其隨機放置在工作表中，如下圖所示。 現在，我將介紹一個VBA，以快速輕鬆地將圖表移至精確且絕對的位置。

1。 選擇要為其設置絕對位置的圖表，然後按 其他 + F11 鍵以打開“ Microsoft Visual Basic應用程序”窗口。

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

備註：在上面的代碼中， 設定 xRg = 範圍("D1:J13") 表示將圖表移動並放置到範圍 D1:J13 中。 您可以根據需要變更範圍。

3。 按 F5 鍵或單擊 運行 按鈕以運行此VBA。

現在您將看到圖表已移動到您在 VBA 中指定的精確位置。 看截圖：

如果您安裝了Kutools for Excel，您可以套用其令人驚嘆的圖表工具 – 設置圖表的絕對位置 在 Excel 中將圖表移動並調整其大小至指定範圍。

1。 選擇要設定絕對位置的圖表，然後按一下 庫工具 > 圖表 > 圖表工具 > 設置圖表的絕對位置.

2。 在彈出的對話方塊中，指定要將圖表移到的位置，然後按一下 Ok 按鈕。

現在，所選圖表將移動到指定位置，並同時調整大小到指定範圍。 看截圖：