スライドサイズを4対3に変更するPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013, Windows版PowerPoint2016

「パワーポイント2013のスライドを4:3の比率に変更するvba」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。

PowerPoint 2013から、既定のスライドサイズが「16:9」のワイド画面になっていることに起因する検索です。

スライドサイズを4対3にするPowerPointマクロ

プレゼン時に使用するプロジェクター等にもよりますが、2016年1月の時点では、スライドのサイズは「16:9」よりも従来どおり「4:3」のほうが、まだまだ扱いやすいケースが多いように感じます。

「パワーポイント2013のスライドを4:3の比率に変更するvba」
という検索をなさった方は、これをVBA（Visual Basic for Applications）で解決しようと考えたのでしょう。

VBAを使わなくても、既定のテーマを「4:3」にすれば済む話ですが、一応、マクロをご紹介しておきます。

［スポンサードリンク］

スライドサイズを4対3にするサンプルマクロ

以下のようなマクロでアクティブなプレゼンテーションのスライドサイズを「4:3」にすることができます。

Sub スライドサイズを4対3にする()

　ActivePresentation.PageSetup.SlideSize = ppSlideSizeOnScreen

End Sub

PageSetupオブジェクトのSlideSizeプロパティを使うと、スライドサイズを変更することができます。

オブジェクトブラウザーを確認するとわかるとおり、PageSetup.SlideSizeプロパティにはPpSlideSizeType列挙に定義されている定数を指定することができ、

スライドサイズを4対3にするPowerPointマクロ

定数・ppSlideSizeOnScreenを指定すれば、

スライドサイズを4対3にするPowerPointマクロ

スライドサイズが「4:3」になります。

既にできあがっているプレゼンファイルのスライドサイズ変更は、VBAから処理するかどうかに関係なく、注意が必要です。

デザインによってはかなりひどい状態になってしまうこともありますので、スライドサイズの変更は、資料を作り始めた初期段階で行うことをおすすめします。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Slide・スライド」の記事一覧