序論：なぜあなたの「グラフ自動貼り付け」は美しくないのか
業務自動化の世界において、Excelで集計したデータをWordの報告書に流し込む作業は、最も需要があり、かつ最も「実装者の実力」が露呈する領域だ。
初心者は単に `Excel.Chart.Copy` して `Word.Range.Paste` するだけのコードを書く。しかし、それでは実戦では通用しない。
グラフがセルの枠を突き破る、解像度が低くて文字が潰れる、あるいは実行するたびにサイズが微妙に変わる――。これらはすべて、Wordの「表（Table）」という特殊なコンテナの性質と、クリップボードという不安定なリソースの管理を軽視しているからだ。
真のエンジニアなら、Wordのレイアウトエンジンをねじ伏せ、常にミリ単位で計算された完璧な出力を保証しなければならない。今回は、ExcelグラフをWord表のセル内に「最適化されたサイズ」で叩き込む、堅牢かつプロフェッショナルな設計手法を伝授する。
—
1. 核心的設計：InlineShapeか、Shapeか
Word VBAで画像を扱う際、最初に直面するのが「行内オブジェクト（InlineShape）」と「浮遊オブジェクト（Shape）」の選択だ。
結論から言う。表の中に配置するなら `InlineShape` 一択だ。
`Shape` は自由な配置が可能だが、表のセルとの相対位置を維持するのが極めて難しく、ドキュメントの編集過程でレイアウトが崩れる原因になる。一方、`InlineShape` は「巨大な一文字」として扱われるため、セルの配置（中央揃えなど）の影響を正確に受け、制御が極めて容易になる。
—
2. 実装の極意：クリップボードとリサイズ戦略
堅牢なコードを書くために、以下の3点を徹底する。
1. セルの「自動リサイズ」を殺す: Wordの表はデフォルトで内容に合わせて幅が変わる。これを `AllowAutoFit = False` で固定しない限り、計算はすべて狂う。
2. アスペクト比を数学的に計算する: Wordの `LockAspectRatio` プロパティに依存しすぎてはいけない。セルの幅と高さ、グラフの元の比率を比較し、最適な縮尺を自前で算出する。
3. DoEventsによる同期: クリップボード経由の貼り付けは、OSレベルでの非同期処理が絡む。連続処理を行う場合は `DoEvents` を挟み、データの転送を確実に待つ。
—
3. プロダクション・コード：ExcelグラフのWordセル完全流し込み
このコードは、参照設定で `Microsoft Excel 16.0 Object Library`（バージョンは環境による）を追加して使用することを想定している。
Option Explicit
‘ @description: Excelの特定のグラフをWordの指定したセルに最適化して貼り付ける
‘ @param targetCell: 貼り付け先のWordセル
‘ @param excelChart: コピー元のExcelグラフオブジェクト
Public Sub InsertOptimizedChartToCell(ByRef targetCell As Word.Cell, ByRef excelChart As Excel.ChartObject)
Dim wdApp As Word.Application
Set wdApp = targetCell.Application
‘ 1. セルの設定を固定（ここが重要）
‘ セル内で内容が折り返されたり、自動拡大されるのを防ぐ
targetCell.Range.Tables(1).AllowAutoFit = False
targetCell.VerticalAlignment = wdCellAlignVerticalCenter
targetCell.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
‘ 2. Excelグラフのコピー
‘ クリップボードエラーを回避するため、確実にアクティベートしてコピー
excelChart.Chart.ChartArea.Copy
DoEvents ‘ クリップボードへの転送を待機
‘ 3. 貼り付け（InlineShapeとして）
Dim ils As Word.InlineShape
targetCell.Range.Text = “” ‘ セル内の既存内容を消去
On Error Resume Next
Set ils = targetCell.Range.PasteSpecial(DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine)
On Error GoTo 0
If ils Is Nothing Then
Err.Raise vbObjectError + 513, , “グラフの貼り付けに失敗しました。”
End If
‘ 4. サイズの最適化計算
‘ セルの内寸（余白を考慮）を取得
Dim availableWidth As Single
Dim availableHeight As Single
‘ Wordのセル余白（LeftPadding/RightPadding）を差し引く
availableWidth = targetCell.Width – (targetCell.LeftPadding + targetCell.RightPadding)
availableHeight = targetCell.Height – (targetCell.TopPadding + targetCell.BottomPadding)
‘ グラフのサイズ調整
Call ResizeInlineShape(ils, availableWidth, availableHeight)
‘ クリップボードのクリア（メモリ節約と誤動作防止）
Application.CutCopyMode = False
End Sub
‘ @description: アスペクト比を維持したままInlineShapeをリサイズする
Private Sub ResizeInlineShape(ByRef ils As Word.InlineShape, ByVal maxWidth As Single, ByVal maxHeight As Single)
Dim ratioW As Double
Dim ratioH As Double
Dim finalRatio As Double
‘ 現在のサイズから比率を算出
ratioW = maxWidth / ils.Width
ratioH = maxHeight / ils.Height
‘ 小さい方の比率を採用することで、枠内に収める
If ratioW < ratioH Then
finalRatio = ratioW
Else
finalRatio = ratioH
End If
' 100%（元のサイズ）を超える拡大は画質劣化を招くため制限するのがプロの作法
If finalRatio > 1 Then finalRatio = 1
‘ リサイズ実行
ils.LockAspectRatio = msoTrue
ils.Width = ils.Width finalRatio
‘ HeightはLockAspectRatioにより自動調整されるが、念のため明示的に計算しても良い
End Sub
—
4. 現場の落とし穴：運用上の注意点
高解像度出力を維持せよ
`PasteSpecial` で `wdPasteEnhancedMetafile` (拡張メタファイル) を指定している点に注目してほしい。これを単なる `Paste` にすると、環境によってはビットマップとして貼り付けられ、印刷時にグラフの文字がボケる。報告書という成果物の品質を担保するなら、ベクター形式を維持できるメタファイル形式が鉄則だ。
「セルの高さ」という罠
Wordの表の行には「最小値」と「固定値」という2つの高さ設定がある。
- `Row.HeightRule = wdRowHeightAtLeast`（最小値）
- `Row.HeightRule = wdRowHeightExactly`（固定値）
自動生成ツールでレイアウトを一切崩したくない場合は、あらかじめ `wdRowHeightExactly` で高さを固定しておく設計を推奨する。これにより、グラフを流し込んだ瞬間にページ跨ぎが発生してレイアウトが崩壊するリスクを最小限に抑えられる。
データベース/外部ファイル連携時のライフサイクル
大量のグラフを処理する場合、Excelのインスタンス管理が肝になる。
ループの中で `Excel.Application` を何度も起動・終了させていないか？ それは最悪のパフォーマンスを招く。
1. Excel起動
2. ブックを開く
3. ループ内で `InsertOptimizedChartToCell` をコール
4. ブックを閉じる
5. Excel終了
このライフサイクルを厳守せよ。また、万が一のクラッシュに備え、`On Error` トラップで確実に `Excel.Application` を `Quit` させる処理を忘れてはならない。
—
結論：細部にこそ神は宿る
Word VBAは、一見すると古臭く、扱いにくい技術に見えるかもしれない。しかし、オブジェクトモデルの深い理解と、数学的な配置計算、そしてクリップボードという「暴れ馬」を御する作法を知れば、これほど強力なドキュメント生成エンジンはない。
「ただ貼り付ける」だけなら誰でもできる。
「いかなるデータが来ても、ミリ単位の狂いなく美しい報告書を生成し続ける」
これができて初めて、あなたはチーフアーキテクトを名乗る資格を得るのだ。
