PowerPoint VBAの「深淵」へようこそ：スライドサイズ変更の呪縛を解く
こんにちは。業務自動化の現場で数々の「崩れたスライド」を修復してきたチーフアーキテクトです。
PowerPoint VBAを触り始めると、誰もが一度は直面する壁があります。それが「スライドサイズ（アスペクト比）の変更」です。4:3から16:9へ変更した瞬間、丹精込めて配置した画像やテキストが、画面外に飛び出したり、不格好に引き伸ばされたりする……あの絶望的な光景ですね。
今日は、この「レイアウト崩れ」をVBAで制御し、あなたのプレゼンを完璧なプロポーションに保つための「極限のロジック」を伝授しましょう。
—
1. なぜレイアウトは崩れるのか？（オブジェクトモデルの本質）
PowerPointには「マクロの記録」機能が存在しません。これが多くの初学者を遠ざける理由ですが、実は逆です。「記録できない＝自分でオブジェクトを操るしかない」。これこそが、VBAをマスターする唯一の道なのです。
スライドサイズを変更する際、重要なのは `PageSetup` オブジェクトです。しかし、サイズを変更しても、中身の `Shape`（図形やテキスト）は「元の座標」を維持しようとします。ここが崩壊の起点です。
解決の鍵： スライドサイズ変更前後の「比率」を算出し、全シェイプに対して座標変換を適用する。これが自動化の正攻法です。
—
2. 実装のステップ：座標再計算のアルゴリズム
以下のコードは、スライドサイズ変更時に「全シェイプの相対位置を維持」するためのテンプレートです。
Sub AdjustLayoutForAspectRatio()
‘ 変更前後の比率を管理するための変数
Dim oldWidth As Single, oldHeight As Single
Dim newWidth As Single, newHeight As Single
Dim ratioW As Single, ratioH As Single
Dim shp As Shape
‘ 1. 現在のスライドサイズを取得（基準となるサイズ）
oldWidth = ActivePresentation.PageSetup.SlideWidth
oldHeight = ActivePresentation.PageSetup.SlideHeight
‘ 2. ここでスライドサイズを変更する（例：ワイド画面へ）
ActivePresentation.PageSetup.SlideSize = ppSlideSizeOnScreen16x9
‘ 3. 変更後のサイズを取得
newWidth = ActivePresentation.PageSetup.SlideWidth
newHeight = ActivePresentation.PageSetup.SlideHeight
‘ 4. 倍率を計算
ratioW = newWidth / oldWidth
ratioH = newHeight / oldHeight
‘ 5. 全スライドの全シェイプをループ処理
Dim sld As Slide
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
‘ オブジェクトの座標を倍率に応じて再配置
With shp
.Left = .Left ratioW
.Top = .Top ratioH
.Width = .Width ratioW
.Height = .Height ratioH
End With
Next shp
Next sld
MsgBox “レイアウトの再計算が完了しました。”
End Sub
—
3. このコードを読み解く「3つのポイント」
① `ActivePresentation.PageSetup` の重要性
PowerPointのプロパティは「ポイント」という単位で管理されています。ピクセルではありません。この数値を倍率（`ratio`）で掛けるだけで、数学的に正確なリサイズが可能になります。
② `For Each` 文の威力
VBAの真骨頂は、人間には不可能な「全スライド・全シェイプの総当り」を瞬時に終わらせることです。この書き方を覚えるだけで、あなたは手作業から完全に解放されます。
③ 陥りやすい罠：グループ化されたシェイプ
もしスライド内に「グループ化された図形」がある場合、個別のシェイプを動かすとレイアウトが壊れることがあります。
- 対策： コードを組む際は、`If shp.Type = msoGroup Then …` と判定を加え、グループ単位で処理するか、一度解除してから再グループ化するロジックを検討してください。
—
4. 現場で生き残るための「エンジニアの心得」
このコードは強力ですが、「元に戻せない（Undoが効かない）」というリスクがあります。
- 鉄則： 実行前に必ずファイルをバックアップすること。
- 発展： 完璧を目指すなら、特定の「マスターレイアウト」に準拠したシェイプのみを対象にするなどのフィルタリング（`shp.Name` を活用する等）を組み合わせましょう。
最後に
「マクロの記録」に頼れないPowerPoint VBAは、一見不親切に見えます。しかし、オブジェクトを直接操作する感覚は、他の言語に通じる「システムを制御する力」を確実に養ってくれます。
まずはこのコードをコピーして、手元のプレゼン資料で試してみてください。レイアウトが瞬時に整う瞬間、あなたはもう「ただのユーザー」ではなく、「業務自動化エンジニア」の入り口に立っています。
次は、どのオブジェクトを自動化しますか？あなたの挑戦を応援しています。
