PivotChart FilterPane in XL2010

[Sandeep Warrier]

Hey All,

In Excel 2010, at times, on selecting a PivotChart, the Filter Pane is not visible. I need it to be visible at all times. For this I have a Worksheet_Activate code.

However, this workbook may be used in other versions of Excel too, and so I tried

Private Sub Worksheet_Activate()
    Dim chrtDashboard As ChartObject
    On Error Resume Next
        If CDbl(Application.Version) > 12 Then
            For Each chrtDashboard In shtDashboard.ChartObjects
                With chrtDashboard.Chart
                    .ShowAllFieldButtons = True 'Error here
                    .ShowReportFilterFieldButtons = True 'Error here
                End With
            Next chrtDashboard
        End If
    On Error GoTo 0
End Sub

In older versions of Excel, this errors out saying method not supported. I would have thought On Error Resume Next would take care of any error, but it seems to not do so.

Any ideas/suggestions?

Thanks!

 

[Sandeep Warrier]

Bump.