PowerPoint VBAでウィンドウサイズに合わせる

「powerpoint vba "ウィンドウサイズに合わせる"」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

PowerPointには、画面の表示倍率をウィンドウの大きさに合わせる［ウィンドウサイズに合わせる］コマンドが存在しています。

［表示］タブ－［ズーム］グループ－［ウィンドウサイズに合わせる］ボタンや、

ステータスバーの右端に表示されている［現在のウィンドウの大きさに合わせてスライドを拡大または縮小します。］ボタンをクリックすると、PowerPointのウィンドウサイズを変更したときに、スライドのサイズも連動して自動的に調整されるようになります。

［現在のウィンドウの大きさに合わせてスライドを拡大または縮小します。］ボタンは、PowerPoint 2013の場合、下図のような、

PowerPoint 2010の場合は下図のようなボタンです。

「powerpoint vba "ウィンドウサイズに合わせる"」
という検索は、これらのボタンをクリックしたのと同じ結果となるVBA（Visual Basic for Applications）のコードを探していた方による検索でしょう。

スライドをウィンドウサイズに合わせるサンプルマクロ

「powerpoint vba "ウィンドウサイズに合わせる"」
という検索だけでは、具体的にどんなマクロにしたかったのかまではわかりませんので、参考になりそうなシンプルなマクロをご紹介しておきます。

上記のようなコードで、VBAからウィンドウサイズに合わせることができるようになります。

どうやってZoomToFitプロパティを見つけるのか

マクロ記録機能が使えなくなってしまった、最近のPowerPointでマクロを作る場合、必要なオブジェクト・プロパティ・メソッドをどう見つけるのかが課題となります。

私はView.ZoomToFitプロパティを、オブジェクトブラウザーから探しました。

［ウィンドウサイズに合わせる］ボタンは、［表示］タブの［ズーム］グループに配置されているため、おそらく「zoom」という単語の含まれる、プロパティかメソッドが存在しているだろうと考え、オブジェクトブラウザーで「zoom」を検索しました。

すると上図のように、Viewオブジェクトに、ZoomToFitという、それっぽい名前のプロパティが見つかりました。

Viewオブジェクトは、DocumentWindowオブジェクトのViewプロパティから取得できることは記憶にあったので、

ActiveWindowプロパティで、DocumentWindowオブジェクトを取得して、

DocumentWindowオブジェクトのViewプロパティでViewオブジェクトを取得して、ViewオブジェクトのZoomToFitプロパティにmsoTrueを設定する

ActiveWindow.View.ZoomToFit = msoTrue

というコードを作りました。