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 

結果はかなりうまく動作しますが私は、グラフの上部と右側に "Drop Page Fields Here"と "Drop Series Fields Here"のラベルを削除したいと思います。彼らはちょうどひどいです;-)

誰でもVBAでそれをやってくれますか？

ありがとうございました!!!

Answer 1

ラベルを削除する唯一の方法は、以下の手順を実行することですが、残りのボタンも非表示にします。

ピボットグラフを選択した状態で、ピボットツールバーの[ピボットグラフ]> [ピボットグラフのフィールドを非表示]ボタンを選択します。

あなたはVBAコードをしたい場合、あなたはそのためにマクロを記録することができます:)

Answer 2

あなたは

Sheets("PivotTableSheet").ShowDrillIndicators = False 

または

Sheets("PivotTableSheet").DisplayFieldCaptions = False 

を試すことができます