VBAで積み上げ横棒グラフのデータラベルを表示したい

Excelに取り込んだデータから
別シートへピボットテーブルを作成し、
別シートにグラフを作成するコードを書きました

下記のコードを加えてもエラーになってラベルが表示されません。

.HasDataLabels = True '---データラベルを表示
.DataLabels.ShowValue = True '---データラベルの数値を表示

ネット上で、どう調べても同じ書き方しか出てきません。
どなたかご教示いただけると嬉しいです。