用于更改数据透视表类型的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

可能值得调查。