パワーポイントで、スライドごとに1枚の図が入ったスライドが100くらい

パワーポイントで、スライドごとに1枚の図が入ったスライドが100くらいあります。
図の大きさを同じに揃えたいのですが、オブジェクトの書式設定で一枚ずつサイズを指定して配置も指定していますが、いつになっても終わりません。
ワードのキーマクロのように同じ繰り返しを簡単にできる技はないのでしょうか。
教えてください。
パワーポイントのバージョンは、2003と2010(試用版)でやっています。

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2010/05/11 11:34

スライド１枚に画像は１つで、先頭のスライドから画像が入っていると仮定した場合ですが、次のような内容のマクロを実行するのはいかがでしょうか。

[Alt]+[F11]で開くウィンドウの[挿入]-[標準モジュール]で表示される画面に以下を記述したら、そのウィンドウを閉じます。
-------- 次行から
Sub サイズ統一()
　Dim myTop, myLft, myHgt, myWdt, cnt, i
　With ActiveWindow.View.Slide.Shapes(1)
　　myTop = .Top
　　myLft = .Left
　　myHgt = .Height
　　myWdt = .Width
　End With
　cnt = ActivePresentation.Slides.Count
　For i = 2 To cnt
　　With ActivePresentation.Slides(i).Shapes(1)
　　　.Top = myTop
　　　.Left = myLft
　　　.Height = myHgt
　　　.Width = myWdt
　　End With
　Next
End Sub
-------前行まで

１枚目の画像を好みの位置に好みのサイズで置いてから、[ツール]-[マクロ]-[マクロ]から上記マクロ(サイズ統一)を実行します。

この回答へのお礼

素晴らしいです!!

希望通りのことができました。
ありがとうございました。

お礼日時：2010/05/11 13:45

No.2 回答者： misatoanna 回答日時： 2010/05/11 11:46

＃１の訂正です。

記述３行目の
With ActiveWindow.View.Slide.Shapes(1)
を
With ActivePresentation.Slides(1).Shapes(1)
に変更してください。

前回のは、１ページ目を開いた状態でマクロを実行しなければなりません。
これを、実行時にどのページを開いていても１ページ目の画像を基準にするように訂正しました。

この回答へのお礼

ご丁寧にありがとうございます。

お礼日時：2010/05/11 13:46