如何使用VBA在Excel工作表上标识数据透视表

Question

我正在创建一个excel仪表板，其中我已经放置了一个数据透视表，我想通过单击一个复选框来控制其可见性。我无法在工作表上识别数据透视表对象，因此无法使用我可以为任何其他activeX控件（如标签）执行的代码。例如我可以找到我的标签＆＃39; lblSales＆＃39;在工作表对象中但我无法找到pivotChartRC＆＃39;这是我的数据透视表的名称无论如何我能做到吗？

Private Sub checkBoxRC_Click()

If (checkBoxResponseCurve.Value) Then

   Sheet1.lblSales.Visible = True
Else
   Sheet1.lblSales.Visible = False

End If

End Sub