パワポのVBA「重なりの抽出」ができない

実現したいこと

二つの重なった図形があり（一つは写真、一つは図形）、図形の大きさに写真を切り抜き、フォルダ内の写真を順番に入れ替えて、切り取った結果を保管していく、ということが実現したいです。
写真は定点観測されたもので、必要なところだけを保管し直したいので、写真だけ連続で変わっていく、ということをしています。

発生している問題・分からないこと

「画像を2つとも選択」までは成功しており、「重なりの抽出」の最後の行で「型が一致しない」と出て止まります。ChatGPT先生に聞いても解決しません。

' 画像を2つとも選択 pptShapeNew.Select imageFrameCopy.Select msoFalse ' 重なりを抽出 Dim shpRange As Object Set shpRange = ActiveWindow.Selection.ShapeRange shpRange.MergeShapes msoMergeIntersect

---

エラーメッセージ

error

1実行時エラー　'13': 2型が一致しません。

該当のソースコード

shpRange.MergeShapes msoMergeIntersect

試したこと・調べたこと

上記の詳細・結果

パワポのVBAなので、ネット検索でもほとんどヒットせず、ChatGPT先生も代替案をくれませんでした。

補足

どなたがお詳しい方、なにとぞどうぞよろしくお願いいたします。