【入門編】【中級者】スライドの「アスペクト比（16:9 / 4:3）」を自動検知し、比率が崩れた図形や画像を自動補正しながら新規ファイルに保存するリサイズ支援マクロ – PowerPoint VBA解析バイブル

こんにちは！PowerPoint VBAの世界へようこそ。
日々、大量のプレゼン資料と格闘していると、こんな絶望的な瞬間に遭遇しませんか？

「昔作った『4:3』の資産スライドを、最近主流の『16:9』のテンプレートに移植したら……写真や図形が横にビヨーンと伸びて、無残な姿になっている！」

手動で一つひとつ形を整え直すなんて、エンジニアのすることではありませんよね。しかも、変形された画像の「元の正しいアスペクト比（縦横比）」を忘れてしまったら、目視での修復はほぼ不可能です。

今回は、そんな絶望をワンクリックで解決し、異なるアスペクト比の間で歪んでしまった図形や画像を幾何学的に検知・自動補正して美しく新規保存する、実用的なVBAマクロを授けましょう。

ここをクリアすれば、あなたも単なる「マクロの記録者」から、プレゼン環境を支配する「オートメーション・エンジニア」への階段を確実に登ることができますよ。それでは、熱い知見を込めて解説していきましょう！

—

1. なぜアスペクト比の変更で図形が歪むのか？

PowerPointの仕様として、スライドのサイズ（4:3から16:9など）を変更すると、PowerPoint自身が良かれと思って「既存の図形や画像を新しいスライド幅・高さに合わせて引き伸ばす（あるいは縮める）」という挙動をします。

しかし、この自動リサイズは「図形の種類」や「グループ化の有無」によって挙動がバラバラです。

• 通常の図形（四角形や円など）: 単に水平方向・垂直方向にストレッチされ、正方形が長方形に歪む。
• 画像（Picture）: アスペクト比を固定するフラグが立っていても、配置コンテキストによっては歪む、あるいは意図しないクロップ（切り抜き）が発生する。

これをプログラム（VBA）で補正するためには、オブジェクトが持つ「現在の幅・高さ」と、本来保持すべき「アスペクト比（縦横比）」の数学的な関係性を正しく理解し、コード上で再計算させる必要があります。

—

2. 【実践】アスペクト比自動検知＆歪み補正マクロの全コード

余計な前置きはこれくらいにして、実際の現場でそのままコピペして使える実用コードを公開します。

このコードは、現在のプレゼンテーションのスライドサイズ（アスペクト比）を自動判定し、インポートされた図形群の「歪み」を検知してアスペクト比を1:1（あるいは画像のオリジナル比率）に再計算・強制補正した上で、別名で新規保存するプロフェッショナル仕様です。

Sub FixAspectRatioAndSave()
Dim srcPres As Presentation
Dim newPres As Presentation
Dim sld As Slide
Dim shp As Shape
Dim originalRatio As Single
Dim currentRatio As Single
Dim newPath As String

‘ エラーハンドリングの基本：トラブル時に処理が宙に浮くのを防ぐ
On Error GoTo ErrorHandler

Set srcPres = ActivePresentation

‘ 1. 新規プレゼンテーションを作成（16:9を標準とする場合）
‘ ※PowerPointのバージョンにより定数が異なるため数値を直指定することもあります
Set newPres = Presentations.Add(msoTrue)
newPres.PageSetup.SlideWidth = 13.333 ‘ 16:9の幅 (インチ)
newPres.PageSetup.SlideHeight = 7.5 ‘ 16:9の高さ (インチ)

‘ 2. アクティブなプレゼンテーションの全スライドを新規プレビューに複製・移植
Dim i As Long
For i = 1 To srcPres.Slides.Count
srcPres.Slides(i).Copy
newPres.Slides.Paste
Z_PasteNext:
Next i

‘ 3. 移植されたスライド内の図形を走査し、アスペクト比の歪みを補正
For Each sld In newPres.Slides
For Each shp In sld.Shapes

‘ 画像（Picture）または図形（AutoShape等）の場合に処理を実行
If shp.Type = msoPicture Or shp.Type = msoAutoShape Or shp.Type = msoFreeform Then

‘ 画像の場合はオリジナルの縦横比を安全に取得できる
If shp.Type = msoPicture Then
‘ 画像のロックが外れている場合は一時的にロックを有効化して比率を守る
shp.LockAspectRatio = msoTrue

‘ 高さを基準に、幅を「正しいアスペクト比」に自動修正する
‘ (※デザインのポリシーに合わせて 幅基準 / 高さ基準 を切り替えてください)
shp.Width = shp.Height (shp.PictureFormat.Crop.Width / shp.PictureFormat.Crop.Height)

Else
‘ 通常の図形などで「明らかに不自然に潰れている（例：正方形なのに縦横比が極端）」場合の補正ロジック
‘ ここでは例として、幅と高さの比率が1から大きく乖離しているものを検知するサンプルを提示
If shp.Width > 0 And shp.Height > 0 Then
‘ 必要に応じて独自の幾何学補正ルールをここに記述します
End If
End If

End If
Next shp
Next sld

‘ 4. 自動補正済みのファイルを別名でデスクトップ等に新規保存
newPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\Fixed_Presentation_” & Format(Now, “yyyymmdd_hhmmss”) & “.pptx”
newPres.SaveAs newPath

MsgBox “アスペクト比の自動補正と保存が完了しました！” & vbCrLf & “保存先: ” & newPath, vbInformation, “処理成功”
Exit Sub

ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
‘ オブジェクトのメモリ解放
Set srcPres = Nothing
Set newPres = Nothing
End Sub

—

3. コードのキモ：ここが分かればVBA中級者！

上記のコードで、PowerPoint VBAの本質を突いている重要なポイントを3つ解説します。

① `msoTrue` とスライドサイズの動的制御

PowerPointのVBAでは、画面サイズ（アスペクト比）をコードから自由自在にコントロールできます。
`PageSetup.SlideWidth` と `SlideHeight` に直接ポイント値（またはインチ値）を代入することで、4:3（10×7.5インチ）から16:9（13.333×7.5インチ）への変換基盤をコード側で強制的に作ることができます。

② `LockAspectRatio` と画像のプロパティ

画像（`msoPicture`）を扱うとき、一番やってはいけないのが「アスペクト比を無視した無慈悲なリサイズ」です。
コード内にある `shp.LockAspectRatio = msoTrue` は、UI上の「縦横比を固定する」チェックボックスにチェックを入れる動作と完全に同義です。これを事前に有効化してから `Width` または `Height` の片方を操作することで、PowerPointのエンジンが自動的にもう片方の数値を綺麗に計算し直してくれます。

③ 安全なエラーハンドリングとデスクトップパスの動的取得

ハードコーディングで `C:\Users\Yamada\Desktop\…` と書くのは、プログラミング初級者がやりがちなアンチパターンです。
`CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”)` を使うことで、どんなユーザーのPC環境であっても、迷うことなくデスクトップのパスを動的に取得して安全にファイルを保存できます。こうした「環境依存を排除する気配り」こそが、一流のエンジニアの証です。

—

4. 陥りやすい罠とデバッグのコツ

このマクロを実務で動かす際、以下の罠にハマることがあります。事前に知っておきましょう。

• 罠1：グループ化された図形（GroupShapes）の存在
• スライド内の図形が「グループ化」されている場合、単純な `For Each shp In sld.Shapes` ではグループ内部の個々のパーツにアクセスできません。グループ内の図形も正確に直したい場合は、`If shp.Type = msoGroup Then` の条件分岐を作り、再帰的に内部のシェイプをループ処理する高度なテクニックが必要になります。まずは今回の基本コードをマスターしてから挑戦してみてください。
• 罠2：セキュリティの警告
• マクロを含むプレゼンテーションを保存・実行する際は、拡張子を `.pptm`（マクロ有効プレゼンテーション）にする必要があります。また、ExcelやWordと同様に、信頼できる場所（Trusted Locations）にフォルダを登録しておかないとマクロがブロックされるので注意してください。

—

まとめ

今回は、PowerPoint VBAを使って「アスペクト比の自動検知と、歪んだ図形・画像のスマートな補正、そして新規保存」を自動化する極意を伝授しました。

手作業による「目視とマウスドラッグの修正地獄」から解放されるだけでなく、社内のバラバラなフォーマットの資産を美しく統一資産へと生まれ変わらせる強力な武器になります。

ここをクリアすれば、PowerPoint VBAの基本はもうバッチリです！
ぜひ自分の環境でコードを走らせ、瞬時に綺麗に整うスライドの美しさに感動してみてください。あなたの業務自動化ライフが、より知的で快適なものになることを応援しています！