VBA复制指定图表并设置正确数据范围及X轴标签求助

核心问题分析 #

1. 运行时错误438：TickLabels属性无法直接赋值单元格区域，需通过修改图表系列的XValues属性，或在SetSourceData时包含标签行来设置分类轴标签。
2. 格式丢失/不一致：原代码用Copy/Paste复制图表后，直接调用SetSourceData会重置部分格式，改用ChartObject.Duplicate方法能完整保留原图表格式。
3. 代码逻辑错误：原代码中变量chtNew指向混乱，导致第一个复制的图表未被正确配置数据源。

修正后的完整代码 #

Sub DuplicateMasterChart()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim chtSource As ChartObject
    Dim chtNew1 As ChartObject
    Dim chtNew2 As ChartObject
    Dim rngData1 As Range
    Dim rngData2 As Range
    
    ' 定义源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("Company 1")
    Set wsDestination = ThisWorkbook.Worksheets("Company 2")
    
    ' 定位源图表
    Set chtSource = wsSource.ChartObjects("master_chart")
    
    ' 复制图表到目标工作表（用Duplicate方法保留格式）
    Set chtNew1 = chtSource.Duplicate
    chtNew1.Name = "duplicated_chart1"
    chtNew1.Top = wsDestination.Range("A1").Top ' 按需调整位置
    chtNew1.Left = wsDestination.Range("A1").Left
    
    Set chtNew2 = chtSource.Duplicate
    chtNew2.Name = "duplicated_chart2"
    chtNew2.Top = wsDestination.Range("A20").Top ' 按需调整位置
    chtNew2.Left = wsDestination.Range("A20").Left
    
    ' 移动复制的图表到目标工作表
    chtNew1.Chart.Location Where:=xlLocationAsObject, Name:=wsDestination.Name
    chtNew2.Chart.Location Where:=xlLocationAsObject, Name:=wsDestination.Name
    
    ' 配置第一个图表的数据源（包含表头行，自动识别系列名称与X轴标签）
    Set rngData1 = wsDestination.Range("A17:R25")
    chtNew1.Chart.SetSourceData Source:=rngData1
    
    ' （可选）手动指定X轴标签的方式，遍历所有系列设置
    ' Dim ser As Series
    ' For Each ser In chtNew1.Chart.SeriesCollection
    '     ser.XValues = rngData1.Rows(1)
    ' Next ser
    
    ' 配置第二个图表的数据源
    Set rngData2 = wsDestination.Range("A30:R38")
    chtNew2.Chart.SetSourceData Source:=rngData2
End Sub

关键修正说明 #

• 保留图表格式：ChartObject.Duplicate复制出的图表会完全继承原图表的格式（图例大小、轴样式等），避免粘贴后格式错乱。
• 修复X轴标签问题：调用SetSourceData时传入包含表头的完整数据区域，Excel会自动识别分类轴标签；若需自定义，可遍历系列设置XValues属性。
• 理清变量指向：用独立变量chtNew1和chtNew2分别管理两个复制图表，避免原代码中变量覆盖导致的配置错误。
• 调整图表位置：通过Top和Left属性设置图表在目标工作表的位置，防止重叠。

内容的提问来源于stack exchange，提问作者stripes 123