PPTスライドショー中に画像を拡大したい

質問

PowerPoint2003でスライドショーで画像を表示しているときに、その画像の全体もしくは一部を拡大するようなことができませんか、またはそのようにできるソフトはないですか？

回答No.4

misatoanna

Poiwerpoint97の環境で作成したモジュールですが、オブジェクトの動作設定で
各画像に次のマクロを指定してみてください。
画像を選択すると拡大し、同じ画像を再度選択すると元に戻る――はずです。

Sub Zooming(TGT As Shape)
　Const DefWH = 576, DefWW = 768　'Default: 576 * 768
　Dim ZoomSet
　Dim MW, MH, TT, TL, TW, TH, WH1, WH2, WW1, WW2
　WH1 = ActivePresentation.SlideShowWindow.Height
　WW1 = ActivePresentation.SlideShowWindow.Width
　With ActivePresentation.SlideShowWindow
　　Select Case WH1
　　　Case Is = DefWH
　　　　MH = ActivePresentation.SlideMaster.Height
　　　　MW = ActivePresentation.SlideMaster.Width
　　　　TT = TGT.Top
　　　　TL = TGT.Left
　　　　TH = TGT.Height
　　　　TW = TGT.Width
　　　　If MW / TW < MH / TH Then ZoomSet = MW / TW _
　　　　　　　　　　　　　　 Else ZoomSet = MH / TH
　　　　.Height = MH * ZoomSet
　　　　.Width = MW * ZoomSet
　　　　.Top = -TT * ZoomSet + (WH1 - (TH * ZoomSet)) / 2
　　　　.Left = -TL * ZoomSet + (WW1 - (TW * ZoomSet)) / 2
　　　　WH2 = ActivePresentation.SlideShowWindow.Height
　　　　WW2 = ActivePresentation.SlideShowWindow.Width
　　　　If WH2 + .Top < WH1 Then .Top = -(WH2 - WH1)
　　　　If WW2 + .Left < WW1 Then .Left = -(WW2 - WW1)
　　　　If .Top > 0 Then .Top = 0
　　　　If .Left > 0 Then .Left = 0
　　　Case Else
　　　　With ActivePresentation.SlideShowWindow
　　　　　.Top = 0
　　　　　.Left = 0
　　　　　.Height = DefWH
　　　　　.Width = DefWW
　　　　End With
　　End Select
　End With
End Sub

このモジュールは、スライドショー時の画面サイズが、縦=576,横=768 の環境と
仮定して記述しています。
画面サイズがわからない場合は、次のマクロを実行して縦と横のサイズを確認し、
上記モジュールの１行目(Const DefWH = 576, DefWW = 768)の数値を書き換えて
ください。

Sub CheckWindowSize()
　ActivePresentation.SlideShowSettings.Run
　MsgBox "DefWH = " & ActivePresentation.SlideShowWindow.Height & Chr(10) & _
　　　　　"DefWW = " & ActivePresentation.SlideShowWindow.Width
　SlideShowWindows(Index:=1).View.Exit
End Sub

お礼

詳しい説明ありがとうございます。ただ、私では少し分かりかねます。今後のために教えていただけませんか。これは具体的にはPPTの何かの設定でできると言うことなのでしょうか。PPTとマクロの関係を良く理解しておりません。