Excel VBA グラフのデータラベルをパーセント表示にする

Question

Excel VBAでグラフ作成を自動化する一環で、
グラフのデータラベルをパーセント表示にして、グラフ内の割合を表示する処理を書いている途中です。
マクロの自動記録機能を用いて、一連作業を記録、その後プロシージャをテストで実行したところ

「オブジェクトは、このプロパティまたはメソッドをサポートしていません」とエラーが発生してしまいました。

以下、コード文です

Sub Macro2()
'
' Macro2 Macro
'

'
ActiveSheet.ChartObjects("グラフ 50").Activate
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.ChartArea.Select
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.FullSeriesCollection(1).ApplyDataLabels
ActiveChart.FullSeriesCollection(1).DataLabels.Select
Selection.ShowValue = False
Selection.ShowPercentage = True　　　←この行でエラーが発生しています

End Sub

.showValue = false　の文を削除したところ、
エラーは発生しなくなりましたが割合でなく実際の値をパーセント表示するようになってしまい、
求める結果が得られませんでした。

グラフ内の割合をパーセント表示する方法をお教えください。

Comments

[meg_]

「Selection.ShowPercentage = True
Selection.ShowValue = False」
としたらどうなりますか？

[kktok]

ご回答くださりありがとうございます。
ご教授いただいた通りのコードを実行したところ、
意図した結果が得られました。
ありがとうございました。