質問

パワーポイント：画像貼り付けマクロ

質問者：gandhi-
投稿日時：2010/12/25 11:44

はじめまして。
パワーポイントのマクロについて教えていただけないでしょうか。

やりたいことは、
・スライドタイトルと同じファイル名の画像ファイルを貼り付けていく
というものです。

恐らく、以下の流れのようになると思うのですが、
特に２番の点をどうしていいのか分かりません。

１．マクロを含んだパワーポイントファイルと貼り付けたい画像ファイルを同フォルダに置く。
２．スライドタイトルの読み込み
３．「スライドタイトル-1, スライドタイトル-2, …」、のファイルを貼り付け、並べる。

ご教示いただけますでしょうか。
困っています。宜しくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2

回答者：DOUGLAS_
回答日時：2010/12/27 22:27

＞マクロ内で指定したファイルが存在しない場合、
＞エラーが出て止まってしまいますが、
＞その場合はスキップするような条件分岐
ActiveWindow.Selection.SlideRange.Shapes. _
　AddPicture(FileName:=strTitle & ".jpg", LinkToFile:=msoFalse, _
　SaveWithDocument:=msoTrue, Left:=200, Top:=150, Width:=175, Height:=120).Select
の前に
On Error Resume Next
を、後に
On Error GoTo 0
を入れてお試しください。

この回答へのお礼

すごい！！あっという間に出来てしまった・・・。
今までマクロなんて使ったことなかったんですが、
本当に使いこなせばいいツールですね。
Cプログラミングは出来るのですが、エクセル・ｐｐｔのマクロは
ちょっとまだ慣れていなくて苦戦しています。
このたびは本当に有難うございました。

通報する

No.1ベストアンサー20pt

回答者：DOUGLAS_
回答日時：2010/12/25 14:17

　PowerPoint 2003 でテストしました。
＃2007 や 2010 では動かないかも知れませんが。。。

　「LinkToFile ～～ Height:=120」の部分は、実情に応じて変えてください。

Sub test()
　Dim i As Long
　Dim strTitle As String
　With ActivePresentation
　　For i = 1 To .Slides.Count
　　　strTitle = Split(.Slides(i).Shapes.Title.AlternativeText, ": ")(1)
　　　.Slides(i).Select
　　　ActiveWindow.Selection.SlideRange.Shapes. _
　　　　AddPicture(FileName:=strTitle & ".jpg", LinkToFile:=msoFalse, _
　　　　SaveWithDocument:=msoTrue, Left:=200, Top:=150, Width:=175, Height:=120).Select
　　Next
　　.Slides(1).Select
　End With
End Sub