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

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

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

步驟二：進入VBA編程界面

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

步驟三：編寫VBA代碼

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

```VBA

Sub 圖表測試()

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)險"

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

.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

```

步驟四：運行宏

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

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