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

结果非常好，但是我想在图表的顶部和右侧删除标签“Drop Page Fields Here”和“Drop Series Fields Here”。它们太糟糕了; - ）

任何人都可以帮助我在VBA中这样做吗？

非常感谢!!!

Answer 1

删除标签的唯一方法是执行以下操作，但它也会隐藏其余按钮。

选中数据透视表后，在数据透视表工具栏上，选择数据透视图＆gt;隐藏数据透视图字段按钮。

如果您需要VBA代码，可以为此录制宏：）

Answer 2

你可以尝试

Sheets("PivotTableSheet").ShowDrillIndicators = False

或

Sheets("PivotTableSheet").DisplayFieldCaptions = False

通过VBA删除透视图标签

2 个答案: