パワーポイントの図形のインデックスについて - インストールレスプログラミング( ´ー`)

図形のグループ化について，飽きもせずいろいろと確認作業をしているんですが，

名前でグループ化は前回の記事のようにできるようになりました。

でも，問題はあります。

コピー貼り付けすると，同じ名前の図形が大量に発生するんですよね。図形の名前は万能ではない。

やっぱりインデックスが無いと制御できないこともあるよなーと思いました。。ということで，調べてました。

解決法は見つからなかったんだけど，IDはどうも一意的な値，For eachを回すと，インデックス順にIDを取得できる。

Sub b()
Dim TargetSlide As Slide: Set TargetSlide = ActivePresentation.Slides(1)
Dim ShapeID() As Long
ReDim ShapeID(1 To TargetSlide.Shapes.Count, 1 To 2)

Dim i As Long: i = 1
Dim s As Shape
For Each s In TargetSlide.Shapes
    ShapeID(i, 2) = i
    ShapeID(i, 1) = s.Id
    i = i + 1
Next
'この時点でShapeID(i,1)にShapeのID,ShapeID(i,2)にインデックスが入るのでIDからインデックスを知ることができる。

Dim col As New Collection: Set col = New Collection
For Each s In TargetSlide.Shapes
    If s.Left > 200 And s.Left + s.Width < 600 Then
        col.Add s.Id
    End If
Next

Dim arr() As Long: ReDim arr(1 To col.Count)

Dim j As Long
For i = 1 To col.Count
    For j = 1 To TargetSlide.Shapes.Count
        If col(i) = ShapeID(j, 1) Then
            arr(i) = ShapeID(j, 2)
        End If
    Next
Next

TargetSlide.Shapes.Range(arr).Group

End Sub