vba - Powerpoint VBA のインデックス範囲外エラー

Question

私のマクロは、特定の図形グループのみで ActiveWindow.Selection.shapeRange を通過するときに、「範囲外のインデックス」エラーをスローします。

特定のプレゼンテーションは、http://free-editable-worldmap-for-powerpoint.en.softonic.comにあります (形状の大きなグループ、つまり南アメリカを選択し、コードを実行してエラーを再現します)。

コードは以下のとおりです。

Dim shp As Shape
For Each shp In ActiveWindow.Selection.shapeRange
    shp.Fill.Transparency = 0 'Or any other code
Next shp

また、For ループを使用しても成功しませんでした ('For i=1 To ActiveWindow.Selection.shapeRange.Count Step 1')。特に、エラーがスローされる特定のインデックスはありません。i=3 の場合もあれば、i=35 の場合もあれば、それ以上の場合もあります。