怎么在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
- 閱讀 ( 961 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章