EXCEL2007 ピボットテーブル 値フィールドの設定 名前の指定

質問

EXCEL2007 ピボットテーブル　値フィールドの設定　名前の指定　について質問します。
名前の指定にて名前を変更するとき、例えば"合計/ フィールド名"が設定されていますが、
このフィールドのデータ部分　"合計 /"　や　"データの個数 /"の部分を表示したくない場合
どうすればよいのでしょうか？
もちろん名前の指定で、余計な部分を削除することで解決しますが、
値フィールドが50以上あること、10シート以上同じことを繰り返す作業の為、
ひとつひとつ直していくのが大変です。

また、2003では書式設定でレイアウトを変更するだけで、フィールド名だけの表示に
簡単に変更可能でしたので、煩わしさを感じています。

なにかよい方法があれば、教えてください。
つたない文章ですみません。宜しくお願い致します。

回答No.1

end-u

Sub test()
　　Dim i As Long

　　For i = 0 To 21
　　　　ActiveSheet.PivotTables(1).Format i
　　　　MsgBox i
　　Next
End Sub
こんなマクロで確認してみると、機能としては残ってるようですが、
手作業での設定を見つけられなかったです...orz

簡易対応で良いなら

Sub try()
　　Dim x

　　x = Application.InputBox("Format? 0-21,default=20", Type:=1)
　　If VarType(x) = vbBoolean Then Exit Sub
　　On Error Resume Next
　　ActiveSheet.PivotTables(1).Format x
　　On Error GoTo 0
End Sub

#マクロに抵抗感なければですけど。

補足

ありがとうございます。
お察しの通り、マクロに抵抗が…(というよりも不勉強なだけですが)
中途半端に使いこなしていたので、マクロの必要性が理解できていませんでした。

2007のインターフェイスに抵抗を感じ、倦厭してきました。
そろそろ2010も出るっていうのに後ろ向きな自分がいて
他の機能においても2003verでできていた事がスムーズにいかないので
まずは実務スピードを上げることに専念することにします。
マクロを使えば、以前の処理スピードに追い付けそう気もしますし、
これを機会に勉強します。