Word ドキュメント内のグラフを画像としてエクスポートする方法

Word のグラフは、レポートやプレゼンテーション、メール、ウェブサイトなどでよく再利用されます。同じグラフをいちから作成し直すよりも、画像としてエクスポートする方がずっと簡単です。Word には「グラフをエクスポート」する専用ボタンはありませんが、1 つのグラフでも、数十のグラフでも、いくつかの実用的な方法があります。

このチュートリアルでは、Word で作成したグラフを画像ファイルとしてエクスポートする方法をご紹介します。まずは最も簡単なWord の組み込み機能から始め、その後、HTML、Kutools for Word、VBA を使った一括エクスポートのテクニックまで解説します。

• 方法1：グラフを画像として保存する（右クリック）
• 方法2：Word をウェブページ（HTML）として保存して、グラフを PNG 形式で一括エクスポート
• 方法3：Kutools for Word でグラフを一括エクスポート
• 方法4：VBA を使用してグラフを一括エクスポート

グラフを画像として保存する（右クリック）

これは、単一のグラフを画像としてエクスポートする最もスピーディーな方法です。Word の組み込み機能である「画像として保存」オプションを使えば、グラフを直接保存できます。

1. グラフをクリックして選択しましょう。
2. グラフを右クリックして、「画像として保存」を選択してください。

   

3. 「画像として保存」ダイアログボックスで：
   • 画像を保存したいフォルダーに移動してください。
   • 「ファイル名」ボックスに、グラフ画像の保存名を入力してください。
   • 保存形式を指定で、PNG や JPG などの画像形式を選べます。

   

4. 「保存」をクリックしてください。

Word をウェブページ（HTML）として保存して、グラフを PNG 形式で一括エクスポート

ドキュメントに多数のグラフが含まれている場合、ウェブページとして保存すれば、すべてのグラフを一括でエクスポートできます。

1. 「ファイル」→「名前を付けて保存」をクリックします。
2. 保存形式を指定ドロップダウンから、ウェブページ(*。htm； *。html)を選択してください。
3. 「保存」をクリックします。

   

Word は、ドキュメントと同じ場所に HTML ファイルと専用のフォルダーを自動的に作成します（保存時に別のフォルダーを指定しない限り）。

ドキュメント内のすべてのグラフが PNG 形式の画像ファイルとしてエクスポートされ、それぞれ専用のフォルダーに保存されます。

Kutools for Word でグラフを一括エクスポート

Kutools for Word は、グラフを画像ファイルとして一括エクスポートする簡単な方法を提供します。1 つずつコピーしたり VBA を使用したりする手間なく、ドキュメント内の複数のグラフをまとめて保存できます。チャートだけでなく、同じツールで画像や表も画像としてエクスポート可能です。

1. 「KUTOOLS PLUS > その他 > 画像/表を画像としてエクスポート」をクリックします。

   

2. ダイアログボックスで：
   • 「グラフ」を種類ドロップダウンから選択すると、文書内のグラフを画像としてエクスポートできます。
   • PNG や JPEG などの画像形式をお選びください。
   • 出力フォルダーを指定してください。

     

     ヒント：エクスポートしたくないグラフがある場合は、エクスポートする項目の選択リストでそのチェックを外してください。（)文書内での表示が有効な場合、リスト内のグラフをクリックすると、文書内の正確な位置にジャンプして確認できます。）
3. 「エクスポート」をクリックしてください。

ドキュメント内のすべてのグラフが、選択したフォルダーに個別の画像ファイルとして保存されます。

VBA を使用してグラフを一括エクスポート

完全な制御や自動化が必要な場合は、VBA を使ってドキュメント内のすべてのグラフを画像としてエクスポートできます。この方法は上級ユーザー向けです。

1. 「Alt + F11」を押して、VBA エディターを開きましょう。
2. 「挿入 > 標準モジュール」をクリックします。

   

3. 以下のマクロをモジュールウィンドウに貼り付けてください。

   Sub ExportChartsAsImages()
   
       Dim ils As InlineShape
       Dim sh As Shape
       Dim i As Long
       Dim outPath As String
       Dim resp As VbMsgBoxResult
   
       outPath = ActiveDocument.Path
       If outPath = "" Then
           MsgBox "Please save the document first, then run the macro again.", vbExclamation, "Kutools for Word"
           Exit Sub
       End If
   
       resp = MsgBox( _
           "Existing image files with the same name will be replaced automatically." & vbCrLf & vbCrLf & _
           "Do you want to continue?", _
           vbExclamation + vbYesNo, _
           "Kutools for Word")
   
       If resp = vbNo Then Exit Sub
   
       i = 1
   
       For Each ils In ActiveDocument.InlineShapes
           If ils.HasChart Then
               ils.Chart.Export FileName:=outPath & "\Chart_" & i & ".png", FilterName:="PNG"
               i = i + 1
           End If
       Next ils
   
       For Each sh In ActiveDocument.Shapes
           If sh.HasChart Then
               sh.Chart.Export FileName:=outPath & "\Chart_" & i & ".png", FilterName:="PNG"
               i = i + 1
           End If
       Next sh
   
       MsgBox (i - 1) & " chart(s) exported to:" & vbCrLf & outPath, vbInformation, "Kutools for Word"
   
   End Sub

4. 「F5」キーを押してマクロを実行しましょう！

グラフは一度に画像としてエクスポートされ、ドキュメントと同じフォルダーに保存されます。

方法の比較

結論

グラフが1 つだけ必要な場合は、右クリックして「画像として保存」するのが最速です。大量エクスポートには、ドキュメントを HTML 形式で保存する方法もありますが、細かい制御が難しいのが難点です。Kutools for Wordなら、クリーンで信頼性の高い一括エクスポートが簡単に実現できます。さらに自動化やカスタマイズが必要な場合は、VBA が最適です。

グラフをエクスポートする頻度と必要な制御レベルに最適な方法をお選びください。

このチュートリアルがお役に立てたなら幸いです！さらに多くのWord のヒントや実用的なソリューションをご覧になりたい場合は、こちらをクリックしてください。Word チュートリアルの全コレクションをご覧いただけます。