удалить метку сводной диаграммы через VBA

Question

Я новичок в Excel-VBA, и я здесь, чтобы попросить вас о помощи!У меня есть книга в Excel 2003, где на листе «PivotTableSheet» есть сводная таблица, из которой я создал встроенную сводную диаграмму на листе «ChartSheet», используя этот код:

Sub CreateChartForPivot()
   Charts.Add
   ActiveChart.ChartType = xlColumnStacked
   ActiveChart.SetSourceData Source:=Sheets("PivotTableSheet").Range("B5:B8"), PlotBy:=xlColumns
   ActiveChart.Location Where:=xlLocationAsObject, Name:="ChartSheet"
   ActiveChart.Legend.Delete    
End Sub

Результат работает довольно хорошо, но я бы хотел убрать метки «Поля опущенных страниц здесь» и «Поля опущенных серий здесь» в верхней и правой части графика.Они просто ужасны; -)

Может кто-нибудь помочь мне сделать это в VBA?

Большое спасибо !!!

Answer 1

Единственный способ удалить ярлыки - это выполнить ниже, но тогда все остальные кнопки будут скрыты.

Выбрав сводную диаграмму, на панели инструментов сводной панели выберите Сводная диаграмма> Скрыть кнопки поля сводной диаграммы.

Если вам нужен код VBA, вы можете записать макрос для этого:)

Answer 2

Вы можете попробовать

Sheets("PivotTableSheet").ShowDrillIndicators = False 

или

Sheets("PivotTableSheet").DisplayFieldCaptions = False