怎么在word书签位置自动生成图表
在word文档编纂中，经常需要在固定位置生当作一个图表，那有没法子主动实此刻word文档固定位置生当作图表呢，请阅读下文。
工具/原料
- Office word 2010以上版本
方式/步骤
- 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文档中我们设置的书签位置生当作图表。
注重事项
- 请利用Office 2010以上版本的软件
- 发表于 2018-03-27 00:00
- 阅读 ( 369 )
- 分类：其他类型
