如何在 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. 在弹出的对话框中，指定图表要移动到的位置，然后单击确定按钮。

现在，所选图表已同时移动到指定位置并调整为限定区域的大小。请参见下图：