PowerPointVBAでグラフの軸の範囲を設定

PowerPointVBAでグラフの軸の範囲を設定したい。


経緯
Excel上で作った棒グラフをPowerPointに貼付
Excelの元データを毎週更新し、PowerPointのグラフは「リンクの更新」で読み込もうとした。

Excel上で作成したグラフは、
横軸が年月のため、徐々に範囲が増えることから、
名前の定義を使って可変にした。

そのグラフはPowerPointに貼付てから保存し、
「データの更新」や「リンクの更新」をすると、
軸ラベルの範囲の設定が変わってしまう。

設定が変わらないようにできたら、
それが良いが、解決策がみつからず

変わってしまう設定をVBAで修正できたら
と思いました。



グラフはNo.1～250程の項目の中で
その都度どの項目を見るか変化するため
一括で更新したいです。


良い方法があればご教授くださいませ。

No.1 回答者： Qchan1962 回答日時： 2021/02/25 13:19

こんにちは、

どちらのVBAで行うのでしょうか。
＞「データの更新」や「リンクの更新」をすると、軸ラベルの範囲の設定が変わってしまう。
＞設定が変わらないようにできたら、それが良いが、解決策がみつからず

これに付いては、
貼り付けたChartのSeries各プロパティを
Series.Name=Series.Name '系列名
Series.XValues=Series.XValues '軸ラベル
Series.Values=Series.Values '系列値
・・
・・
のようにすれば、リンクが切れると思います。

サンプル
　Dim s As Series
　For Each s In ActiveChart.SeriesCollection
　　With s
　　　.Name = .Name
　　　.XValues = .XValues
　　　.Values = .Values
　　End With
　Next