XXXXXさんへ As PowerPoint.Seriesを探ってみては？サンプルパワポリンク切れグラフから値を取得したい

冒頭に移動: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