【入門編】【中級者】スライドサイズ（16:9 / 4:3）を自動判定し、異なる比率のテンプレートへコンテンツを移植する新規作成マクロ – PowerPoint VBA解析バイブル

こんにちは！PowerPointの自動化の世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、コードの中身はチンプンカンプン……」という状態から抜け出し、いよいよ本格的なVBAエンジニアへの階段を登ろうとしているあなたへ。

今日は、実務で本当によくある「地獄のレイアウト崩れ問題」を華麗に解決する、スライドサイズ自動判定＆移植マクロの極意を伝授します。

ここをクリアすれば、PowerPoint VBAのオブジェクトモデルの本質が見えてきますよ。さあ、一緒に深淵を覗いてみましょう。

—

1. なぜ「違う比率のテンプレートへの移植」でレイアウトが崩れるのか？

実務では、「古い4:3の資料を、今風の16:9のマスター（テンプレート）に載せ替えてほしい」といった無茶振りが日常茶飯事に起こります。

ここで素人がやってしまうのが、
1. 新しい16:9のファイルを新しく開く
2. 古いファイルの全スライドを全選択してコピペする

これ、やるとどうなるか知っていますか？
16:9のキャンバスに4:3の要素がそのまま貼り付けられるため、図形が縦にビヨーンと引き伸ばされたり、テキストボックスの位置が右側にズレて重なったりして、大惨事になります。人間の手でこれを直すのは、数スライドならまだしも、100枚あったら発狂ものです。

プロのエンジニアの解決アプローチ

私たち自動化エンジニアは、力技で解決しません。
1. 「元ファイルの比率（16:9なのか、4:3なのか）」をプログラムに自動判定させる。
2. その判定結果に応じて、あらかじめ用意しておいた「正しい比率のマスターファイル」を裏側で呼び出す。
3. スライドの中身を安全に移植し、比率の違いによる座標の破綻を防ぐ。

この一連の流れをVBAで完全にコード化します。

—

2. 開発の舞台裏：PowerPointオブジェクトのライフサイクルを知る

コードを書く前に、PowerPoint VBA特有の「重み」と「お作法」を理解しておきましょう。Excelと違って、PowerPointには「スライドマスター」と「プレースホルダー」という独特の階層構造があります。

特に注意すべきは、スライドを他のプレゼンテーションにコピーする時のメソッド、`Copy` と `Paste` です。
これらを安易に使うと、クリップボードが汚染され、処理が不安定になります。私たちプロは、クリップボードを介さずに直接スライドオブジェクトを操作する、あるいは適切なイテレーション（繰り返し処理）で安全に移植を行います。

—

3. 実装コード：スライドサイズ自動判定＆移植マクロ

それでは、実務でそのままコピペして使える完全版のコードを公開します。
このマクロは、「処理したい古いファイルを指定」し、そのサイズを自動判定した上で、適切なテンプレートに中身を美しく移植するエンジンです。

Sub AdaptAndImportPresentation()
Dim srcPres As Presentation
Dim newPres As Presentation
Dim targetTemplatePath As String
Dim fd As FileDialog
Dim srcWidth As Single
Dim srcHeight As Single
Dim slideRatio As String

‘ 1. 移植元のファイルをユーザーに選択させる
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = “移植元のPowerPointファイルを選択してください”
fd.Filters.Clear
fd.Filters.Add “PowerPoint プレゼンテーション”, “.pptx; .ppt”

If fd.Show = -1 Then
Dim srcPath As String
srcPath = fd.SelectedItems(1)
Else
MsgBox “ファイルが選択されませんでした。処理を中止します。”, vbExclamation
Exit Sub
End If

‘ 2. 移植元ファイルを読み取り専用で開く（安全第一！）
Set srcPres = Presentations.Open(FileName:=srcPath, ReadOnly:=msoTrue, WithWindow:=msoFalse)

‘ 3. スライドの縦横比（WidthとHeight）を取得して判定
srcWidth = srcPres.PageSetup.SlideWidth
srcHeight = srcPres.PageSetup.SlideHeight

‘ 一般的な比率の判定ロジック (許容誤差を考慮する場合もありますが、今回はシンプルに判定)
‘ 16:9 の場合、通常 Width は Height の約 1.77倍
If srcWidth > srcHeight 1.5 Then
slideRatio = “16:9”
‘ ※ご自身の環境にあわせたテンプレートのフルパスに変更してください
targetTemplatePath = “C:\Templates\Template_16-9.potx”
Else
slideRatio = “4:3”
targetTemplatePath = “C:\Templates\Template_4-3.potx”
End If

MsgBox “元ファイルの比率を【 ” & slideRatio & ” 】と判定しました。” & vbCrLf & _
対応するテンプレートから新規作成を開始します。”, vbInformation, “自動判定完了”

‘ 4. 適切なテンプレートを基にして新しいプレゼンテーションを作成
On Error GoTo ErrorHandler
Set newPres = Presentations.Add(WithWindow:=msoTrue)

‘ 5. スライドを一括で移植する（デザインを維持したままコピー）
‘ ※PowerPoint 2003以降では InsertFromFile が非常に安全で確実です
Dim lastSlideIndex As Long
lastSlideIndex = newPres.Slides.Count

‘ 新規作成時のデフォルトスライドを一旦削除するか、末尾に挿入する
‘ ここではシンプルに末尾にインポートし、最初の空スライドを削除する手法をとります
newPres.Slides.InsertFromFile srcPath, lastSlideIndex

‘ 最初から入っていた不要な白紙スライド（1枚目）を削除
If newPres.Slides.Count > srcPres.Slides.Count Then
newPres.Slides(1).Delete
End If

‘ 6. 移植元ファイルを閉じる
srcPres.Close

MsgBox “スライドの移植が正常に完了しました！”, vbInformation, “成功”
Exit Sub

ErrorHandler:
‘ エラーハンドリング
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
If Not srcPres Is Nothing Then srcPres.Close
End Sub

—

4. コードの重要ポイント解説（ここが分かれば中級者卒業！）

① `PageSetup.SlideWidth` と `Height` による判定

PowerPointのサイズは、実は「インチ」や「ピクセル」ではなく、内部的にはポイント（Point）という単位で管理されています。

• 16:9（ワイド画面）: 幅約 720pt × 高さ 405pt （または 960 × 540 など）
• 4:3（標準画面）: 幅約 720pt × 高さ 540pt

コード内の `srcWidth > srcHeight 1.5` という条件式は、幅が高さに対して十分に広いか（つまり16:9のワイドか）を判定する非常にスマートな手法です。

② `Presentations.Open(…, WithWindow:=msoFalse)`

バックグラウンドでファイルを処理する際の鉄則です。画面に余計なウインドウを表示させずにファイルを開くことで、処理速度が劇的に向上し、画面がチラつくストレスからも解放されます。

③ `InsertFromFile` メソッドの威力

スライドを1枚ずつ `Copy` & `Paste` するループを書きたくなる衝動に駆られますが、それはVBAのパフォーマンスを著しく落とすアンチパターンです。
`InsertFromFile` を使えば、OSの裏側でファイルを直接結合するような挙動になるため、一瞬で、かつレイアウトの崩れを最小限に抑えてスライドをごっそり移植できます。

—

5. 陥りやすい罠とトラブルシューティング

実際にこのコードを運用する際、初心者が必ずハマるポイントを先回りして解説しておきます。

• 罠1: テンプレートのパスが見つからない
• `targetTemplatePath` に指定したパスにファイルが存在しないと、容赦なく「ファイルが見つかりません」エラーで止まります。必ず実在する `.potx` または `.pptx` のパスを指定してください。
• 罠2: 組織のセキュリティポリシー（マクロのブロック）
• ネットワークドライブ（共有フォルダ）上のテンプレートを指定すると、セキュアな環境ではVBAからのアクセスが拒否されることがあります。テスト時はローカル環境（`C:\` ドライブ等）で実行しましょう。

—

おわりに

いかがでしたでしょうか？
「スライドのサイズをプログラムに判定させ、それに応じた適切なアプローチをとる」。この発想こそが、単なるマクロの記録から脱却し、真にメンテナンス性の高い業務自動化システムを構築するための第一歩です。

ここをクリアしたあなたなら、もうPowerPoint VBAの構造で恐れるものはありません。ぜひご自身の業務に合わせてこのコードをカスタマイズし、退屈な手作業を秒速で終わらせてしまいましょう！