vba - 位置图表相对（超过或低于）VBA中的另一个图表

Question

我有一张带有图表的表格。我正在使用另一个子创建另一个图表，并希望将其放在第一个图表下。

我知道如何使用 .Top 或 .Left 设置图表的位置，但不知道如何检索第一个图表的位置。有什么建议么？

我试过：

Activesheet.ChartObjects(2).Top = Activesheet.ChartObjects(1).Top

--> 这工作得很好，但图表是重叠的。我需要用“.Bottom”替换最后一个“.Top”，但“.Bottom”不被接受（事实上，最理想的情况是，我想放在第一个图表的底部，有一点差距）。

听起来很简单，但做不到！

谢谢，艾尔

Answer 1

这是你正在尝试的吗？

Option Explicit

Sub Sample()
    Dim C1CO As ChartObject, C2CO As ChartObject

    Set C1CO = ActiveSheet.ChartObjects("Chart 1")
    Set C2CO = ActiveSheet.ChartObjects("Chart 2")

    With C2CO
        .Top = C1CO.Top + C1CO.Height + 10
        .Left = C1CO.Left
    End With
End Sub