VBA Test If Chart Is A Pivot Chart

[Chris Macro]

Does anyone have a good way to test if a chart is a Pivot Chart in VBA? I have code that is looping through all the chart objects that are currently selected but want to ensure none of them are Pivot Charts (this is more of an error handler than anything else).

 

[Domenic]

Maybe...

Sub test()
    Dim oChrtObj As ChartObject
    Dim oPivotLayout As PivotLayout
    
    For Each oChrtObj In ActiveSheet.ChartObjects
        Set oPivotLayout = oChrtObj.Chart.PivotLayout
        If oPivotLayout Is Nothing Then
            MsgBox oChrtObj.Name & " is not a Pivot Chart."
        Else
            MsgBox oChrtObj.Name & " is a Pivot Chart."
        End If
    Next oChrtObj
End Sub

Hope this helps!

 

[Chris Macro]

Thank you Domenic! That got me exactly what I needed.

Ended up making a little function since I needed to test for Pivot Charts across a few modules in my VBA project.

Private Function IsPivotChart(cht As Chart) As Boolean
'PURPOSE: Determine whether a chart is a Pivot Chart

Dim pvtLayout As PivotLayout
    
Set pvtLayout = cht.PivotLayout

If pvtLayout Is Nothing Then
  IsPivotChart = False
Else
  IsPivotChart = True
End If

End Function

 

[Domenic]

That's great. Glad I could help.

Cheers!