Excel图表VBA获取X轴值时遇运行时错误1004的求助

问题根源 #

WorksheetFunction.Index 对图表系列的XValues兼容性有限：如果XValues是手动输入的分类标签数组（而非工作表单元格区域），就会触发「参数无效」错误；另外原代码将myX定义为Double，若X轴是文本、日期等非数值类型，也会导致类型不匹配报错。

修复方案 #

1. 替换WorksheetFunction.Index为直接访问数组元素的方式，VBA原生支持对XValues数组的索引访问，兼容性更强
2. 将myX和myY的类型从Double改为Variant，兼容文本、日期等多种轴值类型
3. 增加系列索引的有效性判断，避免越界访问

修改后的代码 #

Private Sub Chart_MouseUp _
        (ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
    
    Dim ElementID As Long, Arg1 As Long, Arg2 As Long
    Dim myX As Variant, myY As Variant ' 改为Variant兼容多种类型
    
    With ActiveChart
        .GetChartElement X, Y, ElementID, Arg1, Arg2
        
        Application.StatusBar = "[" & ElementID & "]"
        
        ' 增加系列索引有效性判断，避免越界
        If (ElementID = xlSeries Or ElementID = xlDataLabel) _
            And Arg1 >= 1 And Arg1 <= .SeriesCollection.Count _
            And Arg2 > 0 Then
            
            ' 直接访问数组元素，替代WorksheetFunction.Index
            myX = .SeriesCollection(Arg1).XValues(Arg2)
            myY = .SeriesCollection(Arg1).Values(Arg2)
            
            MsgBox "Series " & Arg1 & vbCrLf _
                   & """" & .SeriesCollection(Arg1).Name & """" & vbCrLf _
                   & "Point " & Arg2 & vbCrLf _
                   & "X = " & myX & vbCrLf _
                   & "Y = " & myY & vbCrLf & vbCrLf _
                   & "Any questions?"
        End If
        
    End With
End Sub

额外排查点 #

• 若图表X轴为分类轴（比如文本标签），原代码的Double类型无法存储文本，改成Variant是必须的
• 可临时添加调试代码确认XValues类型：在出错行前加Debug.Print TypeName(.SeriesCollection(Arg1).XValues)，若输出为Variant()则是数组，直接索引更可靠；若为Range，原代码理论可行，但替换为直接索引也无问题

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