こんにちは。今日は、多くのPowerPointユーザーが一度は頭を抱える「スライドサイズの変更」という問題に、エンジニアの視点からアプローチしてみましょう。
プレゼンの方向性が変わり、「4:3の資料を16:9に作り直してくれ」と言われたとき、あなたはどうしますか？
標準機能の「スライドサイズ変更」を使うと、画像が不自然に伸びたり、せっかく整えたテキストボックスの位置がズレたりして、結局手修正に数時間を費やす……。そんな経験があるはずです。
実は、PowerPoint内部では「座標（ポイント）」という絶対的な数値で位置を管理しています。単なるリサイズは「無理やり引き伸ばす」処理ですが、プロの自動化は「比率を計算して再配置する」処理を行います。
ここを乗り越えれば、あなたは単なる「マクロが使える人」から、「PowerPointのオブジェクト構造を操るエンジニア」へと進化できますよ。準備はいいですか？
なぜ「標準のリサイズ」ではダメなのか？
PowerPointの標準機能でサイズを変えると、ソフト側が「良しなに」調整しようとします。しかし、人間が意図した「余白の美学」までは計算してくれません。
特に厄介なのがプレースホルダー（タイトルや本文の枠）です。これらはスライドマスターに紐付いているため、単純なコピー＆ペーストでは元の座標を引きずり、新しいサイズでは「端に寄りすぎ」たり「中央からズレ」たりします。
解決策はシンプルです。
1. 元のスライドサイズと、新しいスライドサイズの「比率」を出す。
2. 新しいプレゼンテーションを先に作成する。
3. 元のオブジェクトの座標にその比率を掛け合わせ、新しいキャンバスに「正しく配置し直す」。
このロジックをコードに落とし込んでいきましょう。
【実践】サイズ変換＆再配置マクロ
以下のコードは、現在開いているプレゼンテーションを元に、16:9の新規ファイルを作成し、要素を再計算して移植する極めて実用的なコードです。
Option Explicit
' ======================================================================================
' プレゼンテーションサイズ変換・再配置ツール
' 概要: 4:3などのプレゼンを16:9へ、配置比率を維持したまま新規ファイルに移植する
' ======================================================================================
Sub ConvertSlideSizeAndMaintainLayout()
Dim sourcePres As Presentation
Dim targetPres As Presentation
Dim sourceSlide As Slide
Dim targetSlide As Slide
Dim shp As Shape
Dim targetShp As Shape
Dim ratioX As Double, ratioY As Double
Dim srcWidth As Single, srcHeight As Single
Dim dstWidth As Single, dstHeight As Single
' 1. 元となるプレゼンテーションをセット
Set sourcePres = ActivePresentation
srcWidth = sourcePres.PageSetup.SlideWidth
srcHeight = sourcePres.PageSetup.SlideHeight
' 2. 新しいプレゼンテーションを作成し、サイズを16:9に設定
Set targetPres = Presentations.Add
With targetPres.PageSetup
.SlideWidth = 914.4 ' 16:9 の標準幅 (ポイント)
.SlideHeight = 514.3 ' 16:9 の標準高さ (ポイント)
End With
dstWidth = targetPres.PageSetup.SlideWidth
dstHeight = targetPres.PageSetup.SlideHeight
' 3. 変換比率を計算 (ここがエンジニアの腕の見せ所)
ratioX = dstWidth / srcWidth
ratioY = dstHeight / srcHeight
' 4. スライドを1枚ずつ移植
For Each sourceSlide In sourcePres.Slides
' 新規スライドを追加（レイアウトは白紙に設定して制御しやすくする）
Set targetSlide = targetPres.Slides.Add(targetPres.Slides.Count + 1, ppLayoutBlank)
' スライド内の全シェイプをループ処理
For Each shp In sourceSlide.Shapes
' オブジェクトをコピーして新規スライドに貼り付け
shp.Copy
targetSlide.Shapes.Paste
' 貼り付けた直後のオブジェクトを特定
Set targetShp = targetSlide.Shapes(targetSlide.Shapes.Count)
' --- 座標とサイズの再計算 ---
' 単純なコピーでは位置がズレるため、比率を掛けて再配置する
With targetShp
.Left = shp.Left * ratioX
.Top = shp.Top * ratioY
.Width = shp.Width * ratioX
.Height = shp.Height * ratioY
End With
Next shp
Next sourceSlide
MsgBox "変換が完了しました。新しいファイルを確認してください。", vbInformation, "完了"
End Sub先輩エンジニアによる「コードの深掘り」解説
このコードで特に意識してほしいポイントを3つ解説します。ここを理解すれば、他の自動化ツールも作れるようになりますよ。
① 「ポイント」という概念を理解する
VBAで扱う `SlideWidth` や `Left` などの単位は「センチメートル」ではなく「ポイント」です（1ポイント ≒ 0.035cm）。
初心者が陥りやすい罠は、ここを数値で直接書き換えてしまうこと。今回は `ratioX`（横比率）と `ratioY`（縦比率）を算出したことで、元のサイズがどのような形式であっても、自動的に16:9へ適応できるようにしています。
② なぜ `ppLayoutBlank`（白紙）を使うのか？
既存のレイアウト（タイトルスライドなど）を適用したままコピーすると、元々そこにあるプレースホルダーと、コピーしてきたシェイプが重なり、二重に表示されてしまいます。
あえて「白紙」にコピーし、座標を数学的に制御することで、マスターの制約に縛られない自由な配置を実現しています。
③ オブジェクトのライフサイクル
`shp.Copy` $\rightarrow$ `targetSlide.Shapes.Paste` $\rightarrow$ `targetSlide.Shapes(targetSlide.Shapes.Count)` という流れに注目してください。
PowerPoint VBAには「貼り付けたオブジェクトを直接変数に返す」メソッドがありません。そのため、「貼り付けた直後は、そのスライドの最後尾にオブジェクトが追加されている」という特性を利用して、操作対象を特定しています。これは実務で非常によく使うテクニックです。
陥りやすいエラーと回避策（ここが重要！）
実際に運用すると、いくつか壁にぶつかるはずです。その対策を伝授します。
- 「画像が微妙に歪む」場合
アスペクト比を厳格に守りたい画像がある場合は、`.Width` と `.Height` の両方に比率を掛けるのではなく、どちらか一方（例えば `ratioX`）だけを適用し、もう一方は `LockAspectRatio = msoTrue` に設定してください。
- 「メモリ不足」で落ちる場合
大量のスライド（100枚以上など）を処理する場合、クリップボードにデータが溜まりすぎて不安定になります。その場合は、一定枚数ごとに `DoEvents` を挟むか、保存して一度閉じる処理を検討してください。
- 「グループ化されたオブジェクト」の挙動
グループ化されたシェイプは、一つの大きなシェイプとして扱われます。そのため、グループ内部の個別の位置関係は維持されますが、グループ全体の配置は上記コードで正しく制御可能です。
まとめ：自動化の先にある世界
いかがでしたか？
「サイズを変える」という単純な作業も、「座標系を理解し、比率で再計算する」というエンジニア的なアプローチを取ることで、完璧な精度で自動化できます。
マクロの記録で得られるのは「操作の再現」ですが、コードを書いて得られるのは「ロジックの再現」です。後者こそが、業務効率を劇的に変える真の武器になります。
まずはこのコードをコピペして動かしてみてください。そして、`.Left` や `.Top` の計算式を少し変えて、「自分好みの配置ルール」を作ってみてください。そこからあなたのエンジニアとしての旅が始まります。
応援していますよ！
