remove filter options from chart

via the macro recorder

    ActiveChart.ShowAllFieldButtons = False

Make sure the chart is selected before running code

I have added this line after adding chartobject and assigned sourcedata to chartobject. So I think this is selected. below is code I used:

Worksheets("SheetName").ChartObjects("ChartName").Chart().Activate
 ActiveChart.ShowAllFieldButtons = False

this does not work for me.

Perhaps you can post example file.

This recorder code shows adding the chart and turning the filters off.

    Cells(1, 1).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("Sheet4!$A$1:$C$18")
    ActiveChart.ShowAllFieldButtons = False

I can however get the error 1004 if the chart is NOT a pivot chart.