X轴值Visual Basic

Question

我在StackOverflow中发现了这段代码来创建动态Excel图表

ThisWorkbook.Sheets("Sheet1").ChartObjects(1).Chart.SetSourceData _
         Source:=ThisWorkbook.Sheets("Sheet1").Range("MyRange")

它工作正常，唯一的问题是x轴值是1,2,3,4,5等。

我想为x值选择另一个范围。如何实现呢？

Answer 1

您可以使用Chart.Axes(xlCategory)获取对x轴的引用（请参阅此方法的文档here），然后在该对象上设置所需的任何属性。例如：

Dim theChart As Chart
Set theChart = ThisWorkbook.Sheets("Sheet1").ChartObjects(1).Chart

theChart.Axes(xlCategory).MinimumScale = 0.1
theChart.Axes(xlCategory).MaximumScale = 1.1
theChart.Axes(xlCategory).MajorUnit = 0.25
theChart.Axes(xlCategory).MinorUnit = 0.05

This page显示Axis对象上可用的属性。