如何修改Word VBA宏生成同一分类下多组簇状柱形图？

我正在开发Microsoft Word中的VBA宏，用于从文档内的表格生成簇状柱形图（Clustered Column）。现有代码生成的图表与目标效果不符，需要修改宏以实现同一分类下包含多组图表的效果。

相关说明 #

• 数据源表格：第一列为分类项，后续列为多组数据系列，每行对应一个分类的各系列数值
• 目标效果：横轴为分类，每个分类下显示对应多组系列的簇状柱形
• 当前生成效果：系列与分类颠倒，不符合预期

现有代码 #

Sub CreateWordChart()
    Dim oChart As Chart, oTable As Table
    Dim oSheet As Excel.Worksheet
    Dim RowCnt As Long, ColCnt As Long
    Application.ScreenUpdating = False
    ' get the first table in Doc
    Set oTable = ActiveDocument.Tables(1)  ' modify as needed
    Set oChart = ActiveDocument.Shapes.AddChart.Chart
    Set oSheet = oChart.ChartData.Workbook.Worksheets(1)
    ' get the size of Word table
    RowCnt = oTable.Rows.Count
    ColCnt = oTable.Columns.Count
    With oSheet.ListObjects("Table1")
        ' remove content
        .DataBodyRange.Delete
        ' resize Table1
        .Resize oSheet.Range("A1").Resize(RowCnt, ColCnt)
        ' copy Word table to Excel table
        oTable.Range.Copy
        .Range.Select
        .Parent.Paste
    End With
    oChart.PlotBy = xlRows
    oChart.ChartData.Workbook.Close
    Application.ScreenUpdating = True
End Sub

修改后的代码 #

Sub CreateClusteredColumnChart()
    Dim oChart As Chart, oTable As Table
    Dim oSheet As Excel.Worksheet
    Dim RowCnt As Long, ColCnt As Long
    Application.ScreenUpdating = False
    
    ' 获取文档中的第一个表格
    Set oTable = ActiveDocument.Tables(1)
    ' 直接指定创建簇状柱形图，避免默认图表类型偏差
    Set oChart = ActiveDocument.Shapes.AddChart2(Style:=201, XlChartType:=xlColumnClustered).Chart
    Set oSheet = oChart.ChartData.Workbook.Worksheets(1)
    
    RowCnt = oTable.Rows.Count
    ColCnt = oTable.Columns.Count
    
    With oSheet.ListObjects("Table1")
        ' 清除原有数据（如果存在表头则保留，仅删除数据行）
        If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.Delete
        End If
        ' 调整Excel表格范围以匹配Word表格
        .Resize oSheet.Range("A1").Resize(RowCnt, ColCnt)
        ' 复制Word表格数据到Excel
        oTable.Range.Copy
        .Range.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End With
    
    ' 关键修改：设置按列绘制（分类为第一列，后续列为系列）
    oChart.PlotBy = xlColumns
    ' 确保图表标题、轴标签正确显示（可选，按需调整）
    oChart.HasTitle = True
    oChart.ChartTitle.Text = "分类簇状柱形图"
    oChart.Axes(xlCategory).HasTitle = True
    oChart.Axes(xlCategory).AxisTitle.Text = "分类"
    oChart.Axes(xlValue).HasTitle = True
    oChart.Axes(xlValue).AxisTitle.Text = "数值"
    
    oChart.ChartData.Workbook.Close SaveChanges:=False
    Application.ScreenUpdating = True
End Sub

核心修改点说明 #

1. 指定图表类型创建：使用AddChart2直接创建xlColumnClustered（簇状柱形图），避免默认图表类型可能的偏差
2. 调整数据绘制方向：将oChart.PlotBy = xlRows改为xlColumns，这样第一列作为横轴分类，后续列作为不同的数据系列，实现同一分类下多组柱形的效果
3. 优化数据粘贴方式：使用PasteSpecial仅粘贴值和格式，避免复制Word表格的格式干扰Excel图表数据
4. 添加可选的图表标签：补充图表标题、坐标轴标签，让图表更清晰（可根据需求删除或修改）
5. 关闭工作簿时不保存：明确SaveChanges:=False，避免弹出保存提示

内容的提问来源于stack exchange，提问作者Emilie rei