プレゼンテーションの「向き」という名のカオスを制御する：スライド方向の自動判別とPDF分割出力の極限アーキテクチャ
ビジネスの現場において、我々が対峙するドキュメントは決して美しい設計図ではない。
16:9のワイド画面で構成されたプレゼンテーションの中に、突如としてA4縦向きの仕様書が混入し、それらが一つのファイルとして強引に結合されている。このような「混在状態」は、単なるレイアウトの不備ではなく、出力プロセスにおける致命的なバグの温床となる。
標準的な「名前を付けて保存（PDF）」を実行すれば、出力されたPDFはスライドの向きが頻繁に切り替わる、極めて視認性の低い、あるいは印刷に耐えられない成果物となる。
本稿では、このようなカオスをプログラムによって秩序へと変換する、エンジニアリングの真髄について解説する。単なるコードの提示ではない。オブジェクトのライフサイクル、COM（Component Object Model）の挙動、そしてメモリ管理の観点から、堅牢な自動化システムを構築するための知見を共有する。
1. 幾何学的判定のロジック：Orientationか、それともAspect Ratioか
スライドの向きを判定する際、初心者は単にスライドの幅と高さを比較しようとする。しかし、それは極めて危ういアプローチだ。PowerPointのオブジェクトモデルにおいて、スライドの向きは `PageSetup.SlideOrientation` プロパティによって明示的に定義されている。
我々が注視すべきは、スライドのピクセル値ではない。そのスライドが「どの設計思想（Orientation）」に基づいて構築されているかである。
- `ppSlideOrientationHorizontal`: 横向き（Landscape）
- `ppSlideOrientationVertical`: 縦向き（Portrait）
このプロパティをトリガーとして、スライドをグループ化するステートマシンを構築するのが、最も確実で計算コストの低い戦略となる。
2. メモリの断片化を防ぐ：オブジェクトのライフサイクル管理
VBAにおける自動化の最大の敵は、「幽霊プロセス（Zombie Processes）」である。
特にPowerPointのような巨大なアプリケーションを操作する場合、`Set obj = Nothing` と記述するだけでは不十分なケースがある。COMオブジェクトの参照カウントがゼロにならない限り、メモリ上にはアプリケーションのインスタンスが残り続け、システムのリソースを食いつぶし、最終的にはExcelやPowerPointのクラッシュを引き起こす。
特に今回のように、「新しいプレゼンテーションを作成し、スライドをコピーし、PDFとして出力し、そのプレゼンテーションを破棄する」というループ処理を行う場合、各イテレーションにおいて「オブジェクトの明示的な解放」と「参照の完全な切断」を徹底しなければならない。
3. 極限の実装：Orientation-Aware PDF Splitter
以下に、シニアエンジニアが実戦で用いるレベルの、堅牢な制御マクロを示す。
このコードは、`Microsoft Scripting Runtime`（Dictionaryオブジェクト）を利用して、スライドのインデックスを向きごとに分類し、それらを別々のPDFとして出力する。
' ======================================================================================
' Module: Mod_PresentationSplitter
' Description: Mixed-orientation PPTX to separate PDFs.
' Author: Legendary Chief Architect
' ======================================================================================
Option Explicit
' Microsoft Scripting Runtime の参照設定が必要
' 参照設定: Microsoft Scripting Runtime
Public Sub ExportSplitPDFByOrientation()
Dim pptPres As Presentation
Dim dictGroups As Scripting.Dictionary
Dim slideIdx As Long
Dim orient As PpSlideOrientation
Dim key As Variant
Dim savePath As String
Dim baseName As String
Dim extension As String
' エラーハンドリングの初期化
On Error GoTo ErrorHandler
Set pptPres = ActivePresentation
' スライドの向きごとにインデックスを保持するためのDictionaryを初期化
' Key: Orientation (Integer), Value: Collection of Slide Indices
Set dictGroups = New Scripting.Dictionary
' 1. スライドの走査とグループ化
' ----------------------------------------------------------------------------------
For slideIdx = 1 To pptPres.Slides.Count
' 各スライドの親（PageSetup）から向きを取得
orient = pptPres.PageSetup.SlideOrientation
' 注意: PowerPointのPageSetupはプレゼンテーション単位の設定である。
' もしスライドごとに個別の向きを持つ特殊な構成（非標準）の場合、
' ここではPageSetupの挙動を前提とするが、設計上はSlideのサイズ比率を見るのが安全。
' 今回は「混在」の定義に基づき、スライドのサイズ比率で判定する。
Dim isVertical As Boolean
isVertical = (pptPres.PageSetup.SlideHeight > pptPres.PageSetup.SlideWidth)
' 向きのキーを決定 (True: Vertical, False: Horizontal)
Dim groupKey As Variant
groupKey = IIf(isVertical, "Vertical", "Horizontal")
If Not dictGroups.Exists(groupKey) Then
dictGroups.Add groupKey, New Collection
End If
dictGroups(groupKey).Add slideIdx
Next slideIdx
' 2. グループごとの出力処理
' ----------------------------------------------------------------------------------
baseName = Left(pptPres.FullName, InStrRev(pptPres.FullName, ".") - 1)
For Each key In dictGroups.Keys
Call ProcessGroup(pptPres, dictGroups(key), CStr(key), baseName)
Next key
MsgBox "処理が完了しました。出力先: " & baseName, vbInformation
CleanUp:
' オブジェクトの明示的解放（メモリリーク防止の鉄則）
Set dictGroups = Nothing
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
Resume CleanUp
End Sub
''' <summary>
''' 特定のグループ（向き）のスライドを抽出し、新規プレゼンテーションとしてPDF出力する
''' </summary>
Private Sub ProcessGroup(ByRef sourcePres As Presentation, ByRef slideIndices As Collection, ByVal orientLabel As String, ByVal baseName As String)
Dim tempPres As Presentation
Dim i As Long
Dim targetIdx As Long
Dim slideToCopy As Slide
Dim exportPath As String
' 出力パスの構築
exportPath = baseName & "_" & orientLabel & ".pdf"
' 新規プレゼンテーションの生成
' メモリ効率のため、最小限の構成で生成
Set tempPres = Presentations.Add(WithWindow:=msoFalse)
' インデックスの逆順でコピー（または一括コピーを検討すべきだが、
' レイアウト崩れを防ぐため1枚ずつの制御を選択）
On Error Resume Next
For i = 1 To slideIndices.Count
targetIdx = slideIndices(i)
Set slideToCopy = sourcePres.Slides(targetIdx)
' スライドをコピーして新規プレゼンテーションの末尾に貼り付け
slideToCopy.Copy
tempPres.Slides.Paste
' Paste直後のスライドは選択状態になるため、必要に応じて位置調整を行う
Next i
On Error GoTo 0
' 最初のスライドが空の（デフォルトの）スライドの場合、削除
If tempPres.Slides.Count > slideIndices.Count Then
tempPres.Slides(1).Delete
End If
' PDFとして保存
' ppSaveAsPDF を使用
tempPres.ExportAsFixedFormat Path:=exportPath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint
' 3. 重要: テンポラリ・プレゼンテーションの完全な破棄
' これを行わないと、バックグラウンドにPowerPointプロセスが残り続ける
tempPres.Close
Set tempPres = Nothing
' OSへの制御権返還（重い処理の合間に挟む）
DoEvents
End Sub4. アーキテクチャの深淵：なぜこの設計なのか
4.1. `Presentations.Add(WithWindow:=msoFalse)` の選択
GUI（ウィンドウ）を表示させずにプレゼンテーションを生成することは、単なるスピードアップではない。ユーザーの操作を妨げず、かつWindowsのデスクトップ・ウィンドウ・マネージャー（DWM）への描画リクエストを最小限に抑えることで、リソースの競合を回避する。これは、サーバーサイドでの自動化や、大量のバッチ処理を行う際の定石である。
4.2. 逆引きインデックスによる管理
スライドを「コピー＆ペースト」する際、元のスライドのインデックスは不変であるが、貼り付け先のインデックスは変動する。本実装では、ソースとなる `sourcePres` を一切変更せず、メモリ上の `tempPres` に対してのみ操作を行う「イミュータブル（不変）」なアプローチを採用している。これにより、元のファイルが破損するリスクをゼロにしている。
4.3. `DoEvents` の戦略的配置
大規模なスライド群を処理する場合、CPU使用率がスパイクし、アプリケーションが「応答なし」状態に陥ることがある。`DoEvents` をループの節目に挿入することで、OSにメッセージキューの処理権を譲渡し、システム全体の安定性を担保している。
5. 総括
自動化エンジニアの仕事は、単に「動くもの」を作ることではない。「壊れないもの」を、いかに効率的に、かつ低コストなリソースで提供するかにある。
今回紹介した、向きの自動判別と分割出力のロジックは、一見単純に見えるかもしれない。しかし、オブジェクトのライフサイクルを掌握し、メモリ管理を徹底し、エラー耐性の高いアーキテクチャを設計する。その積み重ねこそが、レガシーな環境からモダンなクラウド連携までを支える、真のエンジニアリングである。
次なる課題は、これらをWeb API経由で呼び出し、マイクロサービス化することだ。しかし、その基礎となるのは、常にこうした低レイヤーにおける「確実な制御」に他ならない。
