步驟一：打開文檔并添加書簽在需要生成圖表的Word文檔中打開，然后選中要生成圖表的位置。點(diǎn)擊菜單欄上的"插入"，選擇"書簽"。在彈出的對(duì)話框中輸入書簽名，并點(diǎn)擊添加按鈕。步驟二：進(jìn)入VBA編程界面點(diǎn)擊

步驟一：打開文檔并添加書簽

在需要生成圖表的Word文檔中打開，然后選中要生成圖表的位置。點(diǎn)擊菜單欄上的"插入"，選擇"書簽"。在彈出的對(duì)話框中輸入書簽名，并點(diǎn)擊添加按鈕。

步驟二：進(jìn)入VBA編程界面

點(diǎn)擊菜單欄上的"開發(fā)工具"，選擇"Visual Basic"，進(jìn)入VBA編程界面。

步驟三：編寫VBA代碼

在VBA編程界面中，選中"Microsoft Word對(duì)象"，右鍵菜單選擇"插入"，再選擇"模塊"。將以下代碼放入編輯區(qū)，并點(diǎn)擊保存按鈕。

```VBA

Sub 圖表測(cè)試()

Dim salesChart As Chart

Dim chartWorkSheet As Worksheet

("肺癌圖表").Select

Set salesChart

Set chartWorkSheet (1)

With chartWorkSheet

.ListObjects("表1").Resize.Range("A1:B3")

.Range("A2").Value "人均患病風(fēng)險(xiǎn)"

.Range("A3").Value "您的患病風(fēng)險(xiǎn)"

.Range("B2").Value 1.5

.Range("B3").Value 1.2

End With

With salesChart

.SeriesCollection(1).Points(2) RGB(237, 125, 49)

.SeriesCollection(1).HasDataLabels True

False

.Axes(xlValue).HasMajorGridlines False

.Axes(xlValue, xlPrimary).Delete

With .Parent

.Left 0

.Width 300

.Height 150

End With

End With

End Sub

```

步驟四：運(yùn)行宏

關(guān)閉VBA編程界面，返回文檔窗口。點(diǎn)擊菜單欄上的"開發(fā)工具"，選擇"宏"，選中剛剛編寫的宏，并點(diǎn)擊運(yùn)行。代碼會(huì)自動(dòng)打開Excel表格，在表格中填入數(shù)據(jù)，并根據(jù)我們?cè)赪ord文檔中設(shè)置的書簽位置生成圖表。

通過以上步驟，您可以在Word文檔中自動(dòng)生成圖表，并根據(jù)需要進(jìn)行進(jìn)一步的調(diào)整和美化。