如何在Word中自动生成图表

步骤一：打开文档并添加书签

在需要生成图表的Word文档中打开，然后选中要生成图表的位置。点击菜单栏上的"插入"，选择"书签"。在弹出的对话框中输入书签名，并点击添加按钮。

步骤二：进入VBA编程界面

点击菜单栏上的"开发工具"，选择"Visual Basic"，进入VBA编程界面。

步骤三：编写VBA代码

在VBA编程界面中，选中"Microsoft Word对象"，右键菜单选择"插入"，再选择"模块"。将以下代码放入编辑区，并点击保存按钮。

```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 "人均患病风险"

.Range("A3").Value "您的患病风险"

.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

```

步骤四：运行宏

关闭VBA编程界面，返回文档窗口。点击菜单栏上的"开发工具"，选择"宏"，选中刚刚编写的宏，并点击运行。代码会自动打开Excel表格，在表格中填入数据，并根据我们在Word文档中设置的书签位置生成图表。

通过以上步骤，您可以在Word文档中自动生成图表，并根据需要进行进一步的调整和美化。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。