質問: "フィールド1" これを利用するために、対象グラフを元にページフィールドのアイテム一覧を取得したいのですが可能でしょうか? また、ほかに良い方法がありましたらぜひ情報をいただきたいです。 excelは2003を利用しています。宜しくお願いいたします。
回答: > 対象グラフを元にページフィールドのアイテム一覧を取得したいのですが > 可能でしょうか? 可能です。下記は イミディエイトウインドウ に結果を表示させてます。 sub sampleproc() dim pvtpfs as pivotfields dim pvtpf as pivotfield dim pvtitm as pivotitem ' // pagefield がない場合もあるのでエラー処理しておく on error resume next set pvtpfs = activechart.pivotlayout.pivottable.pagefields on error goto 0 if pvtpfs is nothing then exit sub for each pvtpf in pvtpfs ' // 処理例1 pf 名取得 debug.print pvtpf.name & "------------------------------" ' // 処理例2 pf アイテム取得 for each pvtitm in pvtpf.pivotitems debug.print vbtab; pvtitm.value next next end sub