使用VBA重置图形的原点

我的图表有问题。在传输x轴和y轴的值后，有时原点会移动，因此，我需要将原点重置为其正常位置，然而，我不知道如何在VBA中处理图形的原点并对其进行操作

---

插入新图表时，请提前感谢：

Set myChart = ActiveSheet.Shapes.AddChart(xlLine, 500, 200).Chart

调整旧图表时：

'Set myChart = Sheets(1).
With myChart
     .Top = 50
     .Left = 50
End With

为系列命名：

.SeriesCollection(1).Name = Range("B" & lngStartRow - 1).Value
.SeriesCollection(2).Name = Range("C" & lngStartRow - 1).Value

要更改序列数据本身，请执行以下操作：

set CHARTDATA = range("A1:A2").values
myChart.Chart.SetSourceData Source:=CHARTDATA

要更改放置数据系列的x轴，请根据A1和A2中的值尝试此操作：

With myChart.Chart.Axes(xlCategory)
    .MinimumScale = ActiveSheet.Range("A1").Value
    .MaximumScale = ActiveSheet.Range("A2").Value
End With

请注意，我还没有时间检查最后的系列数据，请告诉我它是否有效，如果无效，我可以稍后更新

---

这就是您要找的吗？

插入新图表时：

Set myChart = ActiveSheet.Shapes.AddChart(xlLine, 500, 200).Chart

调整旧图表时：

'Set myChart = Sheets(1).
With myChart
     .Top = 50
     .Left = 50
End With

为系列命名：

.SeriesCollection(1).Name = Range("B" & lngStartRow - 1).Value
.SeriesCollection(2).Name = Range("C" & lngStartRow - 1).Value

要更改序列数据本身，请执行以下操作：

set CHARTDATA = range("A1:A2").values
myChart.Chart.SetSourceData Source:=CHARTDATA

要更改放置数据系列的x轴，请根据A1和A2中的值尝试此操作：

With myChart.Chart.Axes(xlCategory)
    .MinimumScale = ActiveSheet.Range("A1").Value
    .MaximumScale = ActiveSheet.Range("A2").Value
End With

请注意，我还没有时间检查最后的系列数据，请告诉我它是否有效，如果无效，我可以稍后更新

---

这就是你想要的吗？

@Claude G，请在这里回复，你下面的回复不是答案，所以应该在评论中加入相关问题。Cheers部分是的，但如果我这样做，整个图表将被移动，例如，线条不再调整为初始大小，因此我想调整图表中线条的原点，以便所有内容都与其他图表匹配。很抱歉，我不明白，您想更改数据系列或轴吗？你能发布你的代码吗？这样我就可以更新它了。让我这样说，我得到几个图表，其中一些，在我更新了数据系列之后，原点不再在图的中间，而是放在左边，我想把它推回去。middle@ClaudeG，我明白了。尝试我答案中的最后一个片段，它将允许您根据A1中的值设置轴，A2@ClaudeG，请在这里回复，你下面的回复不是答案，所以应该在评论中加入相关问题。Cheers部分是的，但如果我这样做，整个图表将被移动，例如，线条不再调整为初始大小，因此我想调整图表中线条的原点，以便所有内容都与其他图表匹配。很抱歉，我不明白，您想更改数据系列或轴吗？你能发布你的代码吗？这样我就可以更新它了。让我这样说，我得到几个图表，其中一些，在我更新了数据系列之后，原点不再在图的中间，而是放在左边，我想把它推回去。middle@ClaudeG，我明白了。尝试我答案中的最后一个片段，它将允许您根据A1、A2中的值设置所需的轴