Excel VBA图表自动形状左上angular位置

我在Excel中有一个图表。 我已经为图表添加了一个形状:

excelChart.Shapes.AddShape(msoShapeRectangle, 0, 0, excelChart.ChartArea.width, 15) 

与形状的图表

我select了绿框,并运行下面的macros:

 Sub Macro6() Selection.ShapeRange.Left = 0 Selection.ShapeRange.Top = 0 End Sub 

我期待绿色框被定位在橙色图表区域的左上angular,但是正如你所看到的,在顶部/左边零点坐标开始之前,似乎有某种边距。

如何以编程方式将绿色框放在angular落里?

尝试使用IncrementLeftIncrementTop

 Sub AddBox() Dim cht As Chart Set cht = Worksheets(1).ChartObjects(1).Chart With cht.Shapes.AddShape(msoShapeRectangle, 0, 0, cht.ChartArea.Width, 15) .Name = "MyShape" .IncrementLeft -5 //Experiment with number to get desired effect .IncrementTop -5 End With End Sub