怎么在word书签位置自动生成图表

1、打开需要生成图表的word文档。

2、选中要生成图表的位置，点击”插入“→”书签“，输入书签名，点击添加。

3、点击”开发工具“→”Visual Basic“进入VBA编程界面。

4、选中”Microsoft Word对象“，右键菜单选择”插入“→”模块“

5、将以下代码放入右边的编辑区，并点击保存按钮。Sub 图表测试() Dim salesChart As Chart Dim chartWorkSheet ActiveDocument.Bookmarks("肺癌图表").Select Set salesChart = ActiveDocument.Shapes.AddChart.Chart Set chartWorkSheet = salesChart.ChartData.Workbook.Worksheets(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 .ChartData.Workbook.Application.Quit .Legend.Delete .ChartTitle.Delete .SeriesCollection(1).Points(2).Interior.Color = RGB(237, 125, 49) .SeriesCollection(1).HasDataLabels = True .ChartArea.Format.Line.Visible = False .Axes(xlValue).HasMajorGridlines = False .Axes(xlValue, xlPrimary).Delete With .Parent .Left = 0 .Width = 300 .Height = 150 End With End WithEnd Sub

6、关闭VBA编程界面，返回文档窗口。点击 开发工具 → 宏 ，选中宏，并点击运行。

7、代码自动打开excel表格，往excel表格中填入数据，并根据数据，在word文档中我们设置的书签位置生成图表。