如何使用宏将水平轴标签添加到图表

Question

我使用以下宏创建了一个图表：

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$A$13")
ActiveChart.ChartType = xlLine

如何将水平轴标签添加到图表中，因为此代码只会添加我的垂直列。

我也需要输入水平行。

我对宏非常陌生，请帮助我。

Answer 1

您需要的是：

ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "TheTitleIWant"

首先将图表设置为具有X轴标题，然后设置文本。