使用VBA的图表的绝对位置

Question

我可以使用VBA使用以下代码来创建簇状图表：

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered

但是，这通常位于屏幕的中央。我可以使用以下代码移动它：

ActiveSheet.Shapes("Chart 1").IncrementLeft -650.4545669291
ActiveSheet.Shapes("Chart 1").IncrementTop -295.9091338583

但是，这仅相对于其原始位置。是否可以将其设置为始终位于某个像素或单元格编号？换句话说，我可以对VBA进行编码以在工作表上的某个位置创建图表吗？

Answer 1

使用.Top和.Left属性，
例如

With ActiveSheet.Shapes("Chart 1")
    .Left = Range("C10").Left
    .Top = Range("C10").Top
End With