みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Powerpointの画像の一括コピー

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

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

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

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

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

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

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

 powerpointは2010です。
 
 

投稿日時 - 2014-01-14 12:21:11

QNo.8429212

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

質問サイトでは頻繁に「一括」でというのを目にしますが
PCは人間の頭で思っていることをそのまま実行できるわけではありません。
1つづつチェックをしなければなりませんが、PCなら一瞬で終わります。
コードを考えて試行確認する時間をかけるよりも、私なら手作業でやります。
画像の数がどれくらいあるのかわかりませんが、
2つのファイルを並べて作業すれば1~2時間でできるのでは?

下の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

投稿日時 - 2014-01-17 11:12:04

あなたにオススメの質問