在VBA中手动创建图表的数据范围

我查看了Stackoverflow和其他网站，但没有找到以下问题的解决方案：

我想在VBA中手动设置图表的数据。我不想引用工作表，例如

MyChart.SeriesCollection(1).XValues = "=Sheet1!$F$25:$G$25"

我想要的是：

MyChart.SeriesCollection(1).XValues = {Value1,Value2,Value3,...}

---

但我不知道如何以这种方式设置数据。非常感谢您的帮助

使用值数组执行此操作：

Dim xVals() As Variant

xVals = Array(30,50,70,90,25)


MyChart.SeriesCollection(1).XValues = xVals

如果要使用图纸中的值，而不引用图纸，可以稍微修改它。使用此方法，我们可以从工作表中获取值，将它们存储在一个数组中，并使用该数组填充图表数据。然后，图表将反映数据，但不会随着数据的更改而更新，因此您可以使用此方法防止用户无意中更改图表的数据：

Dim xVals() As Variant
xVals = Sheet1.Range("F25:G25").Value
MyChart.SeriesCollection(1).xValues = xVals

---

使用值数组执行此操作：

Dim xVals() As Variant

xVals = Array(30,50,70,90,25)


MyChart.SeriesCollection(1).XValues = xVals

如果要使用图纸中的值，而不引用图纸，可以稍微修改它。使用此方法，我们可以从工作表中获取值，将它们存储在一个数组中，并使用该数组填充图表数据。然后，图表将反映数据，但不会随着数据的更改而更新，因此您可以使用此方法防止用户无意中更改图表的数据：

Dim xVals() As Variant
xVals = Sheet1.Range("F25:G25").Value
MyChart.SeriesCollection(1).xValues = xVals

---

使用值数组执行此操作：

Dim xVals() As Variant

xVals = Array(30,50,70,90,25)


MyChart.SeriesCollection(1).XValues = xVals

如果要使用图纸中的值，而不引用图纸，可以稍微修改它。使用此方法，我们可以从工作表中获取值，将它们存储在一个数组中，并使用该数组填充图表数据。然后，图表将反映数据，但不会随着数据的更改而更新，因此您可以使用此方法防止用户无意中更改图表的数据：

Dim xVals() As Variant
xVals = Sheet1.Range("F25:G25").Value
MyChart.SeriesCollection(1).xValues = xVals

---

使用值数组执行此操作：

Dim xVals() As Variant

xVals = Array(30,50,70,90,25)


MyChart.SeriesCollection(1).XValues = xVals

如果要使用图纸中的值，而不引用图纸，可以稍微修改它。使用此方法，我们可以从工作表中获取值，将它们存储在一个数组中，并使用该数组填充图表数据。然后，图表将反映数据，但不会随着数据的更改而更新，因此您可以使用此方法防止用户无意中更改图表的数据：

Dim xVals() As Variant
xVals = Sheet1.Range("F25:G25").Value
MyChart.SeriesCollection(1).xValues = xVals

作品：）我在过去的30分钟里一直在找这个。。。谢谢你，大卫！（还不能接受你的答案，必须等12分钟）有效：）我在过去30分钟里一直在找这个。。。谢谢你，大卫！（还不能接受你的答案，必须等12分钟）有效：）我在过去30分钟里一直在找这个。。。谢谢你，大卫！（还不能接受你的答案，必须等12分钟）有效：）我在过去30分钟里一直在找这个。。。谢谢你，大卫！（尚未接受您的答案，必须等待12分钟）