检查工作簿以查看它是否包含任何数据透视图

Question

希望简单地检查工作簿以查看它是否包含任何数据透视图。不寻找任何奇特的东西，只是检查并告诉我是或否的东西。

我试图剖析代码，但我唯一能找到的就是名称……

Answer 1

可以根据 PivotLayout 属性检测数据透视图，该属性应该是可访问的。下面的简单子例程在活动工作表上打印数据透视图的名称：

Sub PrintPivotChartNames()
  Dim chartobject As Object, pl As Object
  On Error GoTo NonPivotChartError
  For Each chartobject In Sheet1.ChartObjects
    Set pl = chartobject.chart.PivotLayout
    Debug.Print chartobject.chart.Name
Continue1:
  Next
  Exit Sub
NonPivotChartError:
  Resume Continue1
End Sub