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

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

东西/原料

• Office word 2010以上版本

方式/步调

1. 1

   1.打开需要生当作图表的word文档。

   
2. 2

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

   
3. 3

   点击”开辟东西“→”Visual Basic“进入VBA编程界面。

   
4. 4

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

   
5. 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. 6

   封闭VBA编程界面，返回文档窗口。点击 开辟东西 → 宏 ，选中宏，并点击运行。

   
7. 7

   代码主动打开excel表格，往excel表格中填入数据，并按照数据，在word文档中我们设置的书签位置生当作图表。

   

注重事项

• 请利用Office 2010以上版本的软件