如何用VBA判断Excel图表是否添加了替代文本？

原代码问题分析 #

你的代码出错是因为ActiveChart.Shapes.Item必须指定具体形状的索引或名称，而且判断整个图表的替代文本根本不需要遍历Shapes——图表的替代文本实际绑定在ChartArea（图表区域）这个核心形状上。

针对当前激活图表的判断代码 #

直接检查图表区域的替代文本是否非空：

Dim hasAltText As Boolean
If Not ActiveChart Is Nothing Then
    hasAltText = (ActiveChart.ChartArea.AlternativeText <> "")
    MsgBox IIf(hasAltText, 10, 0) ' 有文本得10分，无则0分
Else
    MsgBox "请先选中要检查的图表！"
End If

批量检查工作表中所有图表的代码（适合批改作业） #

如果需要批量遍历学生作业里的所有图表，用这段代码：

Dim ws As Worksheet
Dim chtObj As ChartObject
Dim totalScore As Integer

Set ws = ActiveSheet ' 替换成你要检查的工作表，比如Sheets("作业")
totalScore = 0

For Each chtObj In ws.ChartObjects
    ' 只要有一个图表有替代文本就给10分，可根据需求调整逻辑
    If chtObj.Chart.ChartArea.AlternativeText <> "" Then
        totalScore = 10
        ' 若要检查所有图表是否都有文本，去掉Exit For，改成累加或标记
        Exit For
    End If
Next chtObj

MsgBox "作业得分：" & totalScore

关键说明 #

• 无需纠结替代文本的具体内容，只要判断AlternativeText <> ""即可
• 加If Not ActiveChart Is Nothing是为了避免未选中图表时触发错误
• 图表的替代文本默认存在于ChartArea对象中，直接访问比遍历Shapes高效得多

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