パワーポイントのVBAで選択範囲のオブジェクトの中でleftの座標が同一のものをグループ化したい

Question

質問宜しくお願い致します。

パワーポイントのマクロで選択範囲のオブジェクトの左位置(Left)の座標が同一のものをグループ化するマクロを作成したいです。

VBAはかなり初心者で、選択したオブジェクト(ShapeRange)の左座標を重複なく変数に格納して、選択したオブジェクトにループで。。。というアプローチなのかなと考えたのですが、うまく書けません。

どのように書いたらよいかご教示頂ける方がいたらお願い致します。

Answer 1

一例です。ヒントになれば。

Sub Sample()
    
    '図形が選択されていなければ終了
    If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
    
    'グループ作成用変数
    Dim dic 'As Scripting.Dictionary
    Set dic = CreateObject("Scripting.Dictionary")
    
    '同じLeftを持つもの同志を集める
    Dim s As Shape
    For Each s In ActiveWindow.Selection.ShapeRange
        If Not dic.Exists(s.Left) Then dic.Add s.Left, CreateObject("Scripting.Dictionary")
        dic.Item(s.Left).Item(s.Name) = 0
    Next
    
    'グループ化
    Dim e
    For Each e In dic.Items
        If e.Count > 1 Then ActiveWindow.Selection.SlideRange(1).Shapes.Range(e.Keys).Group
    Next

End Sub