ピボットグラフのデータラベルの表示について

質問

【質問の背景】
こんな感じのピボットテーブルから、円グラフを作成しました。
エクセル2002です。

----------------------------------------------
データの個数 / Q.1_勤務地を教えてください
勤務地 合計
A　　　　　 3
B　　　　　 2
C　　　　　 2
D　　　　　 1
E　　　　　 1
F　　　　　 1
総計　　　　　 10
----------------------------------------------

データ系列書式設定を、以下のように設定しました。
→データラベル
→ラベルの内容　
　値とパーセンテージにチェック
→区切り文字
　改行

【質問】
データラベルの区切り文字の上段が値で、下段がパーセンテージの表示となっていますが、この上段と下段を入れ替える方法はないでしょうか？

■現在の表示
3
30%

■希望する表示
30%
3

よろしくお願いします！

回答No.1

end-u · ベストアンサー

Sub test()
　　Dim s() As String
　　Dim p　 As Point

　　If ActiveChart Is Nothing Then
　　　　MsgBox "グラフを選択して実行"
　　　　Exit Sub
　　End If
　　With ActiveChart
　　　　Select Case .ChartType
　　　　Case xlPie, xl3DPie, xlPieExploded, xl3DPieExploded
　　　　　　With .SeriesCollection(1)
　　　　　　　　.HasDataLabels = False
　　　　　　　　.ApplyDataLabels ShowValue:=True, ShowPercentage:=True, Separator:=vbLf
　　　　　　　　For Each p In .Points
　　　　　　　　　　'改行文字で分割して順番入れ替え、改行文字で結合
　　　　　　　　　　s() = Split(p.DataLabel.Text, vbLf)
　　　　　　　　　　p.DataLabel.Text = s(1) & vbLf & s(0)
　　　　　　　　Next
　　　　　　End With
　　　　End Select
　　End With
End Sub

取り敢えず、マクロでの対応策しか思いつきません...

お礼

そんな大変なことだったんですね！
ありがとうございました！！！