如何访问 Excel 2016 年的新图表？

Question

我想通过 VBA 访问 MS Office 2016 中添加的新图表，特别是瀑布图。

我在手动添加的时候录制了一个宏，但是这个宏好像不能识别图表类型。

Answer 1

我没有使用 MS 2016，但我认为您可以找到供将来使用的图表类型的一种方法是将瀑布图放在 sheet 上，然后运行快速sheet 上每个图表的 return 的子 Chart.ChartType。那应该 return 一个整数值，然后可以用来将其他图表设置为该类型。代码应该是这样的：

MsgBox(ActiveSheet.ChartObjects(1).Chart.ChartType)

Answer 2

在最新的 Office 365 Insider 版本中，宏记录器支持瀑布图。这是我添加瀑布图并将其中三个条设置为总计时记录的代码：

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Shapes.AddChart2(395, xlWaterfall).Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.FullSeriesCollection(1).Select
    ActiveChart.FullSeriesCollection(1).Points(1).Select
    ActiveChart.FullSeriesCollection(1).Points(1).IsTotal = True
    ActiveChart.FullSeriesCollection(1).Points(4).Select
    ActiveChart.FullSeriesCollection(1).Points(4).IsTotal = True
    ActiveChart.FullSeriesCollection(1).Points(7).Select
    ActiveChart.FullSeriesCollection(1).Points(7).IsTotal = True
    Application.CommandBars("Accessibility").Visible = False
    Range("A1").Select
End Sub

请注意，新图表有许多功能，包括瀑布图，无法使用 VBA 访问，甚至无法使用常规用户界面访问。例如，您可以设置垂直轴的最小值和最大值，但不能设置主要单位（刻度间距）。

如何访问 Excel 2016 年的新图表？

How to access new charts in Excel 2016?

excel

vba

excel-2016