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

1、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 With

End Sub

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

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