我正在设计一个宏，该宏使用电子表格中的各个范围来创建图表。我的图表代码如下所示，但由于某种原因，我无法显示左（主轴）标题。正确（次要）就可以了。其余代码工作正常，所有代码都挂在一个不会显示的轴标题上。
有什么想法吗？
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
With ActiveChart
.SetSourceData Union(range1, range2)
.FullSeriesCollection(1).ChartType = xlColumnClustered
.FullSeriesCollection(1).AxisGroup = 1
.FullSeriesCollection(1).HasErrorBars = True
.FullSeriesCollection(2).ChartType = xlLine
.FullSeriesCollection(2).AxisGroup = 1
.FullSeriesCollection(2).AxisGroup = 2
.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
.SetElement (msoElementSecondaryValueAxisTitleAdjacentToAxis)
.SetElement (msoElementPrimaryCategoryAxisTitleNone)
.ChartArea.Font.Color = RGB(0, 0, 0)
.ChartArea.Font.Size = 10
End With
不确定，但是可能是这条线引起了问题吗？
With ActiveChart
.SetSourceData Union(range1, range2)
.FullSeriesCollection(1).ChartType = xlColumnClustered
.FullSeriesCollection(1).AxisGroup = 1
.FullSeriesCollection(1).HasErrorBars = True
.FullSeriesCollection(2).ChartType = xlLine
.FullSeriesCollection(2).AxisGroup = 1 ' <------- This line seems unnecessary
.FullSeriesCollection(2).AxisGroup = 2
.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
.SetElement (msoElementSecondaryValueAxisTitleAdjacentToAxis)
.SetElement (msoElementPrimaryCategoryAxisTitleNone)
.ChartArea.Font.Color = RGB(0, 0, 0)
.ChartArea.Font.Size = 10
End With
编辑我可能已经从这个答案中找到了解决方案。听起来像是个错误，其中常量被解释为306，但是如果您查看文档，常量将映射为的值307。因此，只需使用307文字而不是即可msoElementPrimaryValueAxisTitleAdjacentToAxis。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句