如何使用VBA修改组合图表中单个数据系列的ChartType？

你遇到的Run-time error '438'是因为代码直接对ChartObjects对象调用FullSeriesCollection方法，但ChartObjects是工作表上的图表容器对象，本身不支持该方法——必须访问容器内部的Chart对象才能操作数据系列。

修正后的代码 #

核心修改是在With语句中添加.Chart来获取实际的图表对象：

Sub ChartTypeSelect()
Dim slct As Integer

slct = [Selection_ChartType]
   
Call DisableUpdates

' 访问Chart对象而非ChartObjects容器
With ThisWorkbook.Sheets("Q_Hist").ChartObjects("Chart_Q_Hist").Chart
    If slct = 1 Then
        .FullSeriesCollection(1).ChartType = xlColumnStacked
        .FullSeriesCollection(2).ChartType = xlColumnStacked
    ElseIf slct = 2 Then
        .FullSeriesCollection(1).ChartType = xlAreaStacked
        .FullSeriesCollection(2).ChartType = xlAreaStacked
    End If
End With

Call EnableUpdates
End Sub

额外验证建议 #

• 若不确定系列索引有效性，可添加调试代码确认系列总数：Debug.Print .SeriesCollection.Count，确保1和2是合法的系列索引。
• 部分Excel版本中FullSeriesCollection存在兼容性问题，可替换为SeriesCollection，功能完全一致：.SeriesCollection(1).ChartType = ...

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