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

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