Vba SERIES関数で作られたグラフをコピーした時のリンク先を変更したい

いつもお世話になります

今、Series関数で作られたグラフを行コピーなどで行うときリンク先を消し
シート名を変更し、絶対アドレスを外して適切にコピーしたいと考えています

例えば、Test.xlsxで
　　=SERIES(許容支持力!$AJ$16,許容支持力!$AJ$17:$AJ$19,許容支持力!$AK$17:$AK$19,3)
と作られたグラフを別のブックのSheet1にコピした場合

　　=SERIES([Test.xlsx]許容支持力!$AJ$16,[Test.xlsx]許容支持力!$AJ$17:$AJ$19,[Test.xlsx]許容支持力!$AK$17:$AK$19,3)
になってしまいます

これをブック名を外し、シート名を変更して
　　=SERIES(Sheet1!$AJ$16,Sheet1!$AJ$17:$AJ$19,Sheet1!$AK$17:$AK$19,3)
に、そして絶対参照も外して
任意の位置に張り付けたいのですが、可能なのでしょうか？

目的は、違うExcelBookの任意なところにデータごとグラフをコピーする仕事を抱えています
量も多く、張り付けて手で修正する仕事がなので何とかマクロで処理できれば助かる考えています

もしかしたら文章が分かりずらいかもしれませんが、よろしくお願いいたします

No.1 ベストアンサー 回答者： fujillin 回答日時： 2019/11/21 09:28

こんにちは

どの程度のバリエーションがあるのか不明ですが、ごく単純なグラフなら
　WorkSheet.ChartObjects(1).Chart.FullSeriesCollection(1).FormulaLocal
などで、Series以下の数式が文字列で取得できます。

数式は文字列になっていますので、あとは文字変換で編集すれば良いでしょう。
『[ブック]シート!』は削除し、絶対参照は『$』を削除しても良いですし、ADRESS関数を利用することでも相対参照に置き換えられると思います。
　Range(絶対参照).Address(0, 0)
とか。

※ FormulaLocalで取得すると、A1参照形式の式になります。

この回答へのお礼

こんにちは
いつもお世話になります

文字列、取得できました
これを元に考えます
ありがとうございました、これからもよろしくお願い申し上げます

お礼日時：2019/11/21 10:24