excel - VBA查找图表标题并与字符串进行比较

Question

我正在尝试编写一些 VBA 来进行检查以确保图表具有特定标题。这就是我现在所拥有的。

Sub check_chart_title()

Worksheets(1).ChartObjects(3).Activate

With ActiveWorkbook.ActiveChart
    .HasTitle = True
    .ChartTitle.Select
End With

    If Selection = "Sales" Then 'code crashes here
        x = "good" 'proceed to the rest of the code, no chart title mismatch
    Else: x = "bad" 'specific action to take if there is a chart title mismatch
    End If
End Sub

我知道问题出在 if 语句的条件上。但我一直无法找到在图表标题上运行条件的方法。我所需要的只是能够识别图表标题是否等于某个字符串的代码。

非常感谢任何帮助。

Answer 1

无需选择图表标题然后对其进行测试，只需将其放入 IF 语句中即可。

With ActiveWorkbook.ActiveChart
    .HasTitle = True
    .ChartTitle.Select
    If .ChartTitle.Text = "Sales" Then 'code crashes here
        x = "good" 'proceed to the rest of the code, no chart title mismatch
    Else
    x = "bad" 'specific action to take if there is a chart title mismatch
    End If
End With