vba - Excel VBA代码更改数据透视图类型

Question

我正在寻找一个代码来创建一个按钮，单击该按钮会将数据透视表从条形图更改为折线图。我希望按钮位于图表的底部，以便用户可以选择如何通过单击按钮查看数据。

有谁知道这个的代码？理想的即插即用解决方案，因为我是 VBA 的初学者

谢谢

Answer 1

您有两个子例程，但只有一个结束：

Private Sub CommandButton20_Click()

  ActiveSheet.ChartObjects("Chart 60").Activate
  ActiveChart.ChartType = xlLine

End Sub

为我工作。

您还可以将宏分配给图表，例如：

Sub ChangeMe()

ActiveSheet.ChartObjects("Chart 60").Activate

    If ActiveChart.ChartType = xlLine Then
            ActiveChart.ChartType = xlBarClustered
                Else
                ActiveChart.ChartType = xlLine
    End If

End Sub

可能值得研究。