幾何学的再計算によるプレゼンテーション変換：スライドサイズ変更の「歪み」を根絶する設計思想
業務自動化の現場において、クライアントから最も頻繁に、かつ厄介な形で要求されるものの一つが「既存の4:3スライドを、すべて16:9へ美しく変換してほしい」という依頼だ。
多くの開発者は、ここで安易な解を選ぶ。`ActivePresentation.PageSetup.SlideSize` を書き換え、スライド全体のサイズを変更する。しかし、その結果はどうだ？ テキストボックスは横に引き伸ばされ、図形は不格好に歪み、画像はアスペクト比を失って崩壊する。これは「自動化」ではなく、単なる「破壊的変換」だ。
プロフェッショナルとして、我々が提供すべきは、スライドマスターの設計思想（レイアウト）を維持したまま、新しい座標系へとコンテンツを「再配置（Remapping）」するロジックである。
本稿では、単なるサイズ変更ではない、幾何学的計算に基づいた「堅牢な変換エンジン」の構築手法を伝授する。
1. なぜ単純なサイズ変更は「失敗」するのか
PowerPointのオブジェクトは、スライドというキャンバス上の絶対座標（Points）で管理されている。
スライドサイズを 4:3 から 16:9 に変更すると、PowerPointは「キャンバスの広さ」を変えるだけで、中にあるオブジェクトの「座標」や「サイズ」を自動的に比率計算して調整してくれるわけではない。
もし、自動調整機能が働いたとしても、それは「スライド全体の比率」に依存するため、プレースホルダー（タイトル、本文、画像枠など）が持つべき「デザイン上の意図」を無視してしまう。
解決すべき設計課題
1. アスペクト比の維持: 画像や図形が引き伸ばされないこと。
2. プレースホルダーの整合性: マスターに定義された位置関係を、新しい座標系へ正しくマッピングすること。
3. オブジェクトの親子関係: グループ化されたオブジェクトの内部座標の崩壊を防ぐこと。
2. アーキテクチャ：座標系マッピング戦略
我々が採用するのは、「相対座標再計算アルゴリズム」である。
変換のプロセスを以下のステップに分解する。
1. メタデータの抽出: 旧スライドの `Width` と `Height` を取得する。
2. 変換係数の算出:
- $ScaleX = \text{NewWidth} / \text{OldWidth}$
- $ScaleY = \text{NewHeight} / \text{OldHeight}$
3. スライドの複製と座標の書き換え:
新しいプレゼンテーションにスライドをコピーした後、各スライド内の全シェイプを走査し、以下の計算式で座標を上書きする。
- $\text{NewLeft} = \text{OldLeft} \times ScaleX$
- $\text{NewTop} = \text{OldTop} \times ScaleY$
- $\text{NewWidth} = \text{OldWidth} \times ScaleX$
- $\text{NewHeight} = \text{OldHeight} \times ScaleY$
注意点: ただし、これだけでは画像が歪む。画像や特定の図形に対しては、`ScaleX` と `ScaleY` のうち、小さい方の値を採用してアスペクト比を維持する「Min-Scale法」を適用する必要がある。
3. プロダクション・コード：堅牢な変換エンジン
以下に、実務に耐えうる設計思想に基づいたVBAコードを示す。このコードは、単に動くだけでなく、エラーハンドリングとオブジェクトの型判定を組み込んだ「保守性の高い」構造としている。
Option Explicit
''' <summary>
''' プレゼンテーションのサイズ変換を実行するメインルーチン
''' </summary>
Public Sub ConvertPresentationAspectRatio()
Dim sourcePres As Presentation
Dim targetPres As Presentation
Dim oldWidth As Single, oldHeight As Single
Dim newWidth As Single, newHeight As Single
Dim scaleX As Single, scaleY As Single
Dim sld As Slide
Dim shp As Shape
On Error GoTo ErrorHandler
Set sourcePres = ActivePresentation
' 1. 現状のサイズを取得
oldWidth = sourcePres.PageSetup.SlideWidth
oldHeight = sourcePres.PageSetup.SlideHeight
' 2. 新しいサイズの設定 (例: 16:9)
' 実務ではここをダイアログや設定ファイルから取得するように設計する
newWidth = 960 ' 16:9 標準的なポイント値
newHeight = 540
' 3. 新規プレゼンテーションの作成
Set targetPres = Presentations.Add
targetPres.PageSetup.SlideWidth = newWidth
targetPres.PageSetup.SlideHeight = newHeight
' 4. 変換係数の算出
scaleX = newWidth / oldWidth
scaleY = newHeight / oldHeight
' 画面更新を停止（高速化とチラつき防止）
' ※VBAには直接的なScreenUpdatingがないため、DoEventsで制御
' 5. スライドの移行ループ
For Each sld In sourcePres.Slides
' スライドを丸ごとコピー
sld.Copy
targetPres.Slides.Paste
' 貼り付けたスライド（最後尾）に対して座標補正を行う
Set sld = targetPres.Slides(targetPres.Slides.Count)
' スライド内の全シェイプを走査
For Each shp In sld.Shapes
Call AdjustShapeGeometry(shp, scaleX, scaleY)
Next shp
Next sld
MsgBox "変換が完了しました。", vbInformation
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
End Sub
''' <summary>
''' 各シェイプの座標とサイズを、比率に基づいて再計算する
''' </summary>
''' <param name="shp">対象のシェイプ</param>
''' <param name="sx">X軸スケール係数</param>
''' <param name="sy">Y軸スケール係数</param>
Private Sub AdjustShapeGeometry(ByRef shp As Shape, ByVal sx As Single, ByVal sy As Single)
On Error Resume Next ' 読み取り専用オブジェクト等のエラーをスキップ
' グループ化されたシェイプの場合は、再帰的に処理を行うのが理想的
' ここではシンプルに、グループ自体の座標を調整する（内部はPowerPointが制御）
If shp.Type = msoGroup Then
' グループの場合は、グループ全体の枠組みを調整
shp.Left = shp.Left * sx
shp.Top = shp.Top * sy
shp.Width = shp.Width * sx
shp.Height = shp.Height * sy
Exit Sub
End If
' プレースホルダーか、あるいは通常の図形かを判定
' 画像(msoPicture)や図形(msoAutoShape)の歪みを防ぐためのロジック
Dim targetScale As Single
If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then
' 画像の場合はアスペクト比を維持するため、最小のスケールを採用
targetScale = IIf(sx < sy, sx, sy)
' 中心を基準に拡大縮小させるための計算
Dim centerX As Single, centerY As Single
centerX = shp.Left + (shp.Width / 2)
centerY = shp.Top + (shp.Height / 2)
shp.Left = (centerX * sx) - (shp.Width * targetScale / 2)
shp.Top = (centerY * sy) - (shp.Height * targetScale / 2)
shp.Width = shp.Width * targetScale
shp.Height = shp.Height * targetScale
Else
' テキストボックスやプレースホルダーは、スライドの枠に合わせて引き伸ばす
' これにより、マスターのレイアウト意図（端まで埋める等）を尊重する
shp.Left = shp.Left * sx
shp.Top = shp.Top * sy
shp.Width = shp.Width * sx
shp.Height = shp.Height * sy
End If
On Error GoTo 0
End Sub4. プロフェッショナルへの助言：実務における落とし穴
このコードをプロダクション環境に投入する際、以下の3点に留意せよ。
① グループ化オブジェクトの再帰処理
上記のコードでは、グループ化されたオブジェクトに対して簡易的な処理を行っている。しかし、複雑な階層構造を持つ図形の場合、`shp.GroupItems` を用いて再帰的（Recursive）に内部のシェイプまで座標補正をかける設計にアップグレードすべきだ。そうしなければ、グループ内の個別のパーツが左上に寄ってしまう現象が発生する。
② プレースホルダーの「意味」を理解せよ
`shp.Type` が `msoPlaceholder` である場合、それはスライドマスターの設計に縛られている。単にサイズを変えるだけでなく、`shp.PlaceholderFormat.Type` をチェックし、それが「タイトル」なのか「本文」なのかによって、補正の強度を変える（例えばタイトルは横幅いっぱいに広げるが、図形は比率を守る）といった、コンテキスト依存のロジックを組み込むのが、真のアーキテクトの仕事だ。
③ ファイル・データベース連携の安全性
大量のスライドを変換する場合、メモリリークを防ぐために `Set shp = Nothing` などのオブジェクト解放を意識すること。また、変換後のファイルを保存する際は、必ず「元のファイルとは別のパス」に、タイムスタンプを付与して保存する設計にせよ。上書きによるデータ消失は、自動化ツールにおける最大の禁忌である。
結論
スライドサイズの変換は、単なる「プロパティの書き換え」ではない。それは「座標系の再定義」である。
幾何学的な計算に基づいたアプローチを採用することで、ユーザーに「手作業で直す手間」を与えない、真に価値のあるツールを構築することができる。
次に君がコードを書くとき、その変更が「破壊」か「再構築」かを、自らに問いかけてほしい。
