実現したいこと
二つの重なった図形があり(一つは写真、一つは図形)、図形の大きさに写真を切り抜き、フォルダ内の写真を順番に入れ替えて、切り取った結果を保管していく、ということが実現したいです。
写真は定点観測されたもので、必要なところだけを保管し直したいので、写真だけ連続で変わっていく、ということをしています。
発生している問題・分からないこと
「画像を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先生も代替案をくれませんでした。
補足
どなたがお詳しい方、なにとぞどうぞよろしくお願いいたします。
0 コメント