怎么在word书签位置自动生成图表 _2010以上版本

在word文档编纂中，经常需要在固定位置生当作一个图表，那有没法子主动实此刻word文档固定位置生当作图表呢，请阅读下文。

需要这些哦
Office word 2010以上版本
方式/
11.打开需要生当作图表的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 = https://vvvtt.com/article/"人均患病风险"
.Range("A3").Value = https://vvvtt.com/article/"您的患病风险"
.Range("B2").Value = https://vvvtt.com/article/1.5
.Range("B3").Value = https://vvvtt.com/article/1.2
With

With salesChart
.ChartData.Workbook.Application.Quit
.Leg.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
With
With
Sub