使用Word表格数据快速创建图表

taller_2000

已于 2024-05-26 13:33:31 修改

阅读量1.2k

点赞数 3

分类专栏：图表 Word VBA 文章标签： word 图表 Word图表创建图表内嵌图表

于 2024-05-22 06:30:57 首次发布

本文链接：https://blog.csdn.net/taller_2000/article/details/139106326

版权

实例需求：Word的表格如下所示，标题行有合并单元格。

在这里插入图片描述

现在需要根据上述表格数据，在Word中创建如下柱图。如果数据在Excel之中，那么创建这个图并不复杂，但是Word中就没用那么简单了，虽然Word中可以插入图表，但是其数据源仍然是来自于Excel。

在这里插入图片描述

示例代码如下。

Sub CreateWordChart3()
    Dim oChart As Chart, oTable As Table
    Dim oSheet As Object ' Excel.Worksheet
    Const START_CELL = "AA1"
    Application.ScreenUpdating = False
    Set oTable = ActiveDocument.Tables(1)  ' modify as needed
    Set oChart = ActiveDocument.Shapes.AddChart.Chart
    Set oSheet = oChart.ChartData.Workbook.Worksheets(1)
    oTable.Range.Copy
    oSheet.Range(START_CELL).Select
    oSheet.Paste
    Call Create2DTable(oSheet, oSheet.Range(START_CELL))
    oChart.ChartData.Workbook.Close

最低0.47元/天解锁文章