一、 前言

        本文主要介紹向word中插入圖表的方法。方法共有三種，每一種都有自己的適用範圍和利弊。介紹之前，我們準備實驗用的文件，做一個如下圖所示的word模板，我們要做的的是在這個名叫chart的書籤中插入一個圖表，下面然後我將逐一進行介紹這三種方法：

方法一：插入OLEObject型別的圖表

        這種方法適用於所有版本的excel，但是插入的圖表介面較為粗糙，word2007之後圖表的顯示效果得到了很大的提升，所以這種型別的圖表逐漸被放棄。該種方法只建議在word2003之前的版本中使用。

        首先我們需要先引入Microsoft.Office.Interop.Graph的引用，在新增引入的.Net標籤頁找到如下圖圈出的引用，然後點選確定。

        為了防止命名控制衝突，我們可以使用using將Microsoft.Office.Interop.Word和Microsoft.Office.Interop.Graph重新命名。

using Word=Microsoft.Office.Interop.Word;
using Graph=Microsoft.Office.Interop.Graph;

        完成了上面的工作後我們可以開始了，主要的思路是利用.InlineShapes的AddOLEObje()介面OLEObject型別的圖表的圖示插入，主要程式碼如下：

private void button1_Click(object sender, EventArgs e)
{
Microsoft.Office.Interop.Word.Application app = new Microsoft.Office.Interop.Word.Application();
Word.Document doc = app.Documents.Add("D:\\Test.docx");
app=doc.Application;
doc.ActiveWindow.Visible = true;
foreach (Word.Bookmark bk in doc.Bookmarks)
{
if (bk.Name == "chart")
{
object oClassType = "MSGraph.Chart.8";
Graph.Axis axis;//x座標
Word.Range range = bk.Range;
Graph.Chart wdchart = (Graph.Chart)range.InlineShapes.AddOLEObject(oClassType).OLEFormat.Object;
wdchart.Application.DataSheet.Cells.Clear();//清空資料集資料
//axis.MaximumScale = 1;//設定最大刻度

//填充資料集 
int i, j;
for (i = 0; i < 3; i++) 
{
wdchart.Application.DataSheet.Cells[i + 1, 1] = "列" + i.ToString();
}
for (i = 0; i < 4; i++)//填充資料 
{
for (j = 0; j < 4; j++)
{
wdchart.Application.DataSheet.Cells[i + 2, j + 1] = i * j;
}
}

//根據y軸畫圖 
wdchart.Application.PlotBy = Graph.XlRowCol.xlColumns;

wdchart.Legend.Delete();
wdchart.Height = 280;
wdchart.Width = 600;

//更新圖示並退出 
wdchart.Application.Update();
wdchart.Application.Quit();
wdchart = null;
}
}

//doc.SaveAs("E:\\Test.docx");
//app.Quit();
}
 

        上圖中主要程式碼已經列出，原理很簡單，註釋很清楚了不再解釋，如果需要原始碼請克隆本專案，並獲取相應的版本：

        本方法執行結果如下：

Github位置：
https://github.com/HymanLiuTS/OfficeTestByC-
克隆本專案：
git clone [email protected]:HymanLiuTS/OfficeTestByC-.git
獲取本文原始碼：
git checkout L08_1

待續…