使用VBA重置图形的原点

Question

我的图表有问题。在传输x轴和y轴的值之后，我遇到了有时原点移动的问题，因此，我需要将原点重置到其正常位置，不过，我不知道如何解决图的原点在VBA中并操纵它？

先谢谢

Answer 1

插入新图表时：

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

请注意，我没有时间查看最后一个系列数据，请告诉我它是否有效，如果没有，我可以稍后更新。

这是你想要的吗？