冒頭に移動:2024年04月 マクロが使えるなら下記の記事でテストしてください
ken3memo.hatenablog.com
↑急いでいるのに、たらいまわし、スミマセン
As PowerPoint.Seriesを探ってみては?
パワポ リンク切れグラフから値を取得したい
ppSeries As PowerPoint.Series
https://youtu.be/rBKtD3WPcXY?si=uW9IUsUDjthPADGo&t=696
↑を見てください。
3.Values,XValuesをDebug.Print表示してみる Seriesコレクションに(系列に) データが残っているのか? 確認するために、 Values,XValuesを表示してみます。 'Series(系列)を受け取り、中身を表示する 'As PowerPoint.Series を 受け取り、 '.Name .Values .XValues を表示 Sub DebugPrintSeriesTest(ppSeries As PowerPoint.Series) Dim n As Long Debug.Print ".Name=" & ppSeries.Name 'Series.Valuesを表示 Dim boxValues As Variant boxValues = ppSeries.Values Debug.Print "Values:" & UBound(boxValues) & "個の配列" For n = 1 To UBound(boxValues) Debug.Print n, boxValues(n) Next 'Series.XValuesを表示 Dim boxXValues As Variant boxXValues = ppSeries.XValues Debug.Print "XValues:" & UBound(boxXValues); "個の配列" For n = 1 To UBound(boxXValues) Debug.Print n, boxXValues(n) Next End Sub
ppSeries As PowerPoint.Series
https://youtu.be/rBKtD3WPcXY?si=uW9IUsUDjthPADGo&t=696
↑を見てください。
解決のヒントとなれば幸いです。