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

可能值得研究。