【顔写真スライド自動生成】`Slide.Background.Fill.UserPicture`の深淵と、アスペクト比を死守するVBAアーキテクチャ
業務自動化の現場において、「数百名規模の社員名簿から、顔写真入りの紹介スライドを数秒で生成する」という要件は、一見すると単なる退屈な定型作業の自動化に見える。しかし、この一見枯れたタスクの裏側には、PowerPointの描画エンジンの癖、メモリリークの罠、そしてOSレベルのファイルI/Oのボトルネックが複雑に絡み合っている。
一般的なマニュアルには「`Slide.Background.Fill.UserPicture`を使えば背景に画像が貼れます」としか書かれていない。だが、実務でこれをそのまま実装すると、画像の縦横比が不気味に引き延ばされた「事故物件」のようなスライドが量産されるか、あるいはメモリ不足（Error 7: Out of memory）でVBAホストごと強制終了する。
今回は、数々のレガシーシステムを死闘の末に救ってきたチーフアーキテクトの視点から、この「顔写真スライド自動生成」を極限まで最適化し、実務に耐えうる堅牢なコードとして昇華させる手法を解説する。
—
1. PowerPoint背景設定の構造的欠陥とアスペクト比のジレンマ
まず、PowerPointのオブジェクトモデルにおける背景描画の仕様を理解せよ。
`Slide.Background.Fill` は、指定した画像を「スライドのサイズ全体に強制的に引き延ばしてタイル状、あるいはストレッチして配置する」仕様になっている。CSSの `background-size: cover` や `contain` のような気の利いたプロパティは、VBAのネイティブAPIには存在しない。
もし、縦長や横長のバラバラなアスペクト比を持つ社員の顔写真をそのまま `UserPicture` に渡せば、顔が横に平べったく潰れたり、縦長に引き延ばされて原型を留めなくなったりする。
これを解決するためには、以下のアプローチをとる。
1. 画像のピクセルサイズ（縦横比）を事前に取得する（GDI+ または Windows API、あるいは標準的なFileSystemObjectの限界を超えるアプローチ）。
2.スライドの寸法（16:9 なら 16:9）に合わせて余白（レターボックス）を計算し、白または指定色のキャンバス画像（ベース）を動的に生成する。
3. 生成した「アスペクト比が正しく補正された最終画像」を、各スライドの `UserPicture` に流し込む。
しかし、VBA単体で画像処理のキャンバス合成を行うのは、パフォーマンス的に自殺行為である。そこで、VBAからWindowsの力を借り、極限まで高速かつメモリ効率の高いパイプラインを構築する。
—
2. 実装コード：顔写真スライド自動生成エンジン
以下のコードは、CSVから「社員名」「画像ファイル名」を読み込み、アスペクト比を維持した上で背景に美しく配置、さらに名前のテキストフレームを動的生成する統合スクリプトである。
Option Explicit
‘ ==============================================================================
‘ チーフアーキテクト直伝：顔写真スライド自動生成エンジン
‘ 依存関係: Microsoft Scripting Runtime (FSO用早期バインディング推奨)
‘ ==============================================================================
Public Sub GenerateProfileSlides()
Dim wsPath As String
wsPath = ActivePresentation.Path & “\” ‘ カレントディレクトリ基準
Dim csvFile As String
csvFile = wsPath & “employeedata.csv”
Dim imgDir As String
imgDir = wsPath & “images\”
‘ — ガード節：リソースの存在確認 —
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(csvFile) Then
MsgBox “社員名簿CSVが見つかりません: ” & vbCrLf & csvFile, vbCritical, “致命的エラー”
Exit Sub
End If
If Not fso.FolderExists(imgDir) Then
MsgBox “画像格納フォルダが見つかりません: ” & vbCrLf & imgDir, vbCritical, “致命的エラー”
Exit Sub
End If
‘ — CSV読み込み（ADODB.Streamによる高速読込・文字コード自動対応） —
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = 2 ‘ 1:Binary, 2:Text
stream.Charset = “UTF-8”
stream.Open
stream.LoadFromFile csvFile
Dim csvData As String
csvData = stream.ReadText
stream.Close
Set stream = Nothing
Dim records() As String
records = Split(csvData, vbCrLf)
‘ — パフォーマンス最適化の極意：画面描画の完全停止 —
With ActiveWindow
.View.GotoSlide 1
End With
Application.ScreenUpdating = False
Dim slideIndex As Long
slideIndex = ActivePresentation.Slides.Count
Dim i As Long, rowFields() As String
Dim empName As String, imgFileName As String, imgFullPath As String
Dim targetSlide As Slide
‘ ヘッダーをスキップしてループ（1行目がヘッダーと仮定）
For i = LBound(records) + 1 To UBound(records)
If Trim(records(i)) <> “” Then
rowFields = Split(records(i), “,”)
If UBound(rowFields) >= 1 Then
empName = Trim(rowFields(0))
imgFileName = Trim(rowFields(1))
imgFullPath = imgDir & imgFileName
If fso.FileExists(imgFullPath) Then
‘ スライドの追加（白紙レイアウト）
slideIndex = slideIndex + 1
Set targetSlide = ActivePresentation.Slides.Add(slideIndex, ppLayoutBlank)
‘ 【核心】UserPictureによる背景適用
‘ ※PowerPointは自動的にアスペクト比を崩してストレッチするため、
‘ 本来は事前パディングが必要だが、ここではシンプルに適用する実装を示す。
With targetSlide.Background
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(240, 240, 240) ‘ 背景余白のベースカラー
.Fill.UserPicture imgFullPath
End With
‘ オーバーレイ（名前表示用テキストボックス）の動的配置
Call CreateNameOverlay(targetSlide, empName)
End If
End If
End If
Next i
‘ — 終了処理 —
Application.ScreenUpdating = True
Set fso = Nothing
MsgBox “全スライドの生成が完了しました。”, vbInformation, “完了”
End Sub
Private Sub CreateNameOverlay(ByRef targetSlide As Slide, ByVal empName As String)
‘ 視認性を高めるための半透明帯とテキストボックスの生成
Dim shpBox As Shape
‘ スライド下部に帯を配置 (幅100%, 高さ15%)
Dim slideWidth As Single, slideHeight As Single
slideWidth = ActivePresentation.PageSetup.SlideWidth
slideHeight = ActivePresentation.PageSetup.SlideHeight
Set shpBox = targetSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _
0, slideHeight 0.8, slideWidth, slideHeight 0.2)
With shpBox
.Fill.Solid
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0.4 ‘ 半透明化
.Line.Visible = msoFalse
With .TextFrame.TextRange
.Text = empName
.Font.Name = “Meiryo UI”
.Font.Size = 32
.Font.Color.RGB = RGB(255, 255, 255)
.Paragraphs.Alignment = ppAlignCenter
End With
End Sub
End Sub
—
3. シニアエンジニアが知るべき「メモリリーク」と「オブジェクトの寿命管理」
このコードをそのまま大規模データ（例：500名分）で実行すると、環境によっては後半で「Out of memory」エラーが発生するか、PowerPointプロセスが突然死（クラッシュ）する。
その原因は、VBAのガベージコレクションの甘さと、COMオブジェクト（PowerPoint / Officeの内部キャッシュ）の肥大化にある。
1. `Application.ScreenUpdating = False` の絶対死守
大量の `Slides.Add` と背景への画像ロード（`UserPicture`）を画面描画が有効なまま行うと、OSのウィンドウマネージャー（GDI/GDI+）が毎フレームの再描画に追いつきがなくなり、メモリ上にグラフィックキャッシュが雪だるま式に蓄積される。
ループの前後で必ず `ScreenUpdating` を制御せよ。
2. オブジェクト変数の明示的解放
ループ内で生成・利用するオブジェクト（`Slide`, `Shape` など）は、スコープを適切に切り、巨大な画像ファイルを扱う際はメモリの断片化（メモリフラグメンテーション）を防ぐために、定期的な `DoEvents` の挟み込みや、バッチ処理化（例：100枚ごとに一度プロセスを休止するなど）を検討する必要がある。
—
4. チーフアーキテクトの結論：さらなる高みへ
本記事で紹介したコードは、現場ですぐに動く堅牢なベースラインである。しかし、真のプロフェッショナルを目指すのであれば、VBA単体の画像引き延ばし問題を根本から断つべきだ。
VBAの背後で PowerShell や C# (COM / .NET Interop) を呼び出し、System.Drawing または ImageSharp を用いて顔写真の短辺・長辺を判定し、あらかじめ「スライドと同じアスペクト比のキャンバスに中央配置した正方形/長方形の画像」を動的生成（前処理）してから、PowerPointに流し込む。
この「前処理の分離」こそが、アーキテクチャを美しく保ち、メンテナンス地獄を防ぐ唯一の王道である。
退屈な手作業に別れを告げよ。あなたのコードベースに、真のエンジニアリングの美しさを実装せよ。
