PowerPoint VBAにおいて、GUIで選択しているグラフ内の単一のデータラベルの表示書式を取得 / 設定

Question

前提・実現したいこと

PowerPoint VBAにおいてグラフ内の単一のデータラベルを選択した際、そのデータラベルの表示書式(NumberFormatLocal)を取得し、他のグラフの単一データラベルに適応したいです。

わからないこと

PowerPoint VBAのActiveWindow.Selectionオブジェクトから、グラフ内のいずれが選択されているかの情報は得ることができますか？

試したみた考察↓↓

1. ActiveWindow.Selection.ShapeRangeに格納されるShapeオブジェクトが、Chartを保持するShape(≒データラベルの親要素)となってしまっている気がする・・・
2. グラフ内のデータラベルを選択している場合、GUIとしてはグラフ自体も選択状態になっているため、考察1の結果になっても仕方ない気がするが、データラベルを選択しているという情報を保持していない気がする・・・

Dim selectedObj As Selection: Set selectedObj = ActiveWindow.Selection
Dim spRange As ShapeRange: Set spRange = selectedObj.ShapeRange

上記とりあえずコーディングのち、デバッグでいろいろなプロパティ見ていますが、実現ができず・・・
宜しくお願い致します。

補足情報（FW/ツールのバージョンなど）

Windows 10
PowerPoint 2019

Answer 1

PowerPoint VBAでグラフの値を変更する
PowerPoint VBAでShapeコレクションについてFor Eachループを回す方法
参考に
いろいろ設定できそうですが多過ぎるので一部ですが設定できますね。

Sub Sample()
'アクティブなグラフを表すChartの取得()
    On Error GoTo ErrHndl
    Dim cht As Chart
    Set cht = ActiveWindow.Selection.ShapeRange(1).Chart

    Debug.Print cht.ChartTitle.Caption
    Debug.Print cht.Legend.Name
    Debug.Print cht.Legend.Font.Name
    Debug.Print cht.Legend.Font.Bold
    Debug.Print cht.Legend.Font.Italic
    Debug.Print cht.ChartData.Workbook.WorkSheets(1).Range("B1").Value

'スライド内のグラフを取得する()
    Dim Sld As Slide
    Dim Shp As Shape
    For Each Sld In ActivePresentation.Slides
        Debug.Print Sld.Name & "==========="
        For Each Shp In Sld.Shapes
            If Shp.HasChart Then
                'Shp.Select
                Set cht = Shp.Chart
                Debug.Print cht.ChartTitle.Caption
                Debug.Print cht.Legend.Name
                Debug.Print cht.Legend.Font.Name
            End If
    
        Next Shp
    Next Sld
Exit Sub

ErrHndl:
  MsgBox "グラフを選択してから実行してください。"
End Sub

【PowerPoint　VBA】　グラフ内のデータラベルのインデックスを取得するコード
こちらは、細かい設定のようですが...ためしていません

Comments

[taungyeon0103]

ありがとうございます。後半のリンク先のものがとても参考になりした。

UIAutomationClientを利用し、Seriesのindexと、DataLabelのindexを獲得して特定するというアイデアを得ることができました。

ありがとうございます。