パワーポイント スライドの拡大

質問

パワーポイントでスライドショー中に
特定スライドだけ一時的に拡大表示
できないでしょうか。

作成の画面で、表示→ズームを使えば
好きなように拡大、縮小できますが
これをスライドショーの画面で、ショート
カットキーでやりたいのですが。

回答No.1

misatoanna · ベストアンサー

"オブジェクトの動作設定"に下記のようなマクロを指定すれば、画面を単純に拡大することは可能です。（スライドショー用にショートカットキーをユーザ
ー定義できるのかどうかは、私にはわかりません）
でも、スライドのどの部分を拡大するのかを判断させることは、むずかしいのではないでしょうか。

Sub LargeSlide()
　Dim ZmSet, ZmNow
　ZmSet = 2.0　　　'←ここで倍率を指定します。
　ZmNow = ActivePresentation.SlideShowWindow.View.Zoom
　With ActivePresentation.SlideShowWindow
　　Select Case ZmNow
　　　Case Is < 110　　　'※
　　　　.Top = (.Height - .Height * ZmSet) / 2
　　　　.Left = (.Width - .Width * ZmSet) / 2
　　　　.Width = .Width * ZmSet
　　　　.Height = .Height * ZmSet
　　　Case Else
　　　　.Top = 0
　　　　.Left = 0
　　　　.Width = .Width / ZmSet
　　　　.Height = .Height / ZmSet
　　End Select
　End With
End Sub

※の行は本来 =100 なのでしょうが、スライドショー開始時のデフォルトのズーム率がＰＣにより異なる場合への対策として余裕をとりました。
ちなみに、
　MsgBox = ActivePresentation.SlideShowWindow.View.Zoom
で確認してみたら、私のデフォルトは 104 でした。

スライドマスタの右上隅に「塗りつぶしなし・線なし」の小さいオートシェイプの四角形を描き、"オブジェクトの動作設定" で、マウス通過で上記の
マクロを指定すると、スライドショー実行中は、どのページでも有効になります。
マウスを一度通過させると拡大し、もう一度通過させると元に戻ります。

回答No.2

misatoanna

＃１の訂正です。

> スライドマスタの右上隅に「塗りつぶしなし・線なし」の小さいオートシェイプの
> 四角形を描き、"オブジェクトの動作設定" で、
と書きましたが、
　スライドマスタの中心あたりに「塗りつぶしなし・線なし」の‥‥
のほうがよいですね。

隅のほうだと、拡大表示になったとき、元に戻すマクロを動作させるオブジェクトが
画面外に去ってしまいます。

お礼

有難う御座いました。
まだマクロの理解がいまいちなので
少し試行錯誤してみたいと思います。