Powerpointの画像の一括コピー

　40ページほどのpng画像が張り付けられたpowerpoint file Aから画像だけを選択して
　powerpoint file Bに一括で貼り付けたいのですが、何か方法ないでしょうか？

　　1ページの画像は1ページ目に2ページ目の画像は2ページ目にコピーしたいです。

powerpoint Bには、既にタイトル、テキスト、png画像が存在するのですが、このpng画像だけを置き換えたいと考えています。

　どなたかいい方法をご存じの方、お知恵を貸してください。

　自分で色々とマクロで試行錯誤してみたのですが、
　うまくいきません。

　まず、png画像のみを消去しようとすると、タイトルもテキストも消えます。
　そして、貼り付けたくても一括で画像を選択することができません。

　よろしくお願い致します。

　powerpointは2010です。
　
　

No.1 回答者： DreamyCat 回答日時： 2014/01/17 11:12

質問サイトでは頻繁に「一括」でというのを目にしますが

PCは人間の頭で思っていることをそのまま実行できるわけではありません。
１つづつチェックをしなければなりませんが、PCなら一瞬で終わります。
コードを考えて試行確認する時間をかけるよりも、私なら手作業でやります。
画像の数がどれくらいあるのかわかりませんが、
２つのファイルを並べて作業すれば１～２時間でできるのでは？

下のshp.Type = msoPictureで判定してみて不具合があればまた考え直してみてください。
他ファイルへのコピーは自分で考えてみてください。

Sub test1()
Dim shp As Shape
Dim i As Long

For i = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(i)
For Each shp In .Shapes
If shp.Type = msoPicture Then
MsgBox i & " " & shp.Name　'確認
End If
Next
End With
Next

End Sub