Excel VBA – 图表格式轴标签

我正在添加轴标签到我的图表。 以下是我的代码的一部分。

首先，我的代码在运行添加主轴标题的行时不会产生错误。 尽pipe没有注册错误，我的图表仍然缺less一个轴标题的文本框。

其次，我不知道为什么我的代码在我尝试添加辅助轴标题时产生错误。 我从macroslogging器复制这段代码，所以我相当肯定，语法是正确的。

感谢你的帮助！

Dim myChart As Chart, cht As ChartObject Dim rngChart As Range, destSht As String Dim rngData As Range destSht = ActiveSheet.Name Set myChart = Charts.Add Set myChart = myChart.Location(where:=xlLocationAsObject, Name:=destSht) With ActiveSheet.ListObjects("Table1").DataBodyRange Set rngData = Union(.Columns(2), .Columns(9), .Columns(10), .Columns(11), .Columns(12)) End With With myChart .SetSourceData Source:=rngData, PlotBy:=xlColumns .ChartType = xlColumnClustered .ChartStyle = 209 .FullSeriesCollection(1).Name = "AHT" .SetElement (msoElementChartTitleAboveChart) .ChartTitle.Text = "AHT/Transfer Metrics" '*****PROBLEM SECTION***** .SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis) '*****Below is the line of code that is giving me an error***** .SetElement (msoElementSecondaryValueAxisTitleAdjacentToAxis) '****** ***** With .FullSeriesCollection(2) .Name = "Target AHT" .ChartType = xlLine .AxisGroup = 1 .Select With Selection.Format.Line .Weight = 1 End With End With With .FullSeriesCollection(3) .ChartType = xlLineMarkers .AxisGroup = 2 .Name = "Transfers" .Select With Selection.Format.Line .Weight = 1.75 End With End With With .FullSeriesCollection(4) .ChartType = xlLine .AxisGroup = 2 .Name = "Target Transfers" .Select With Selection.Format.Line .Weight = 1 End With End With End With 

Answer 1

我想这是因为你还没有创build辅助轴。 在格式化所有系列之后，尝试将这两行代码放在一起

Answer 2

  With .Axes(xlValue, xlPrimary) .HasTitle = True .AxisTitle.Text = "AHT (s)" End With