Excel中无需使用SendKeys取消激活图表对象的选中状态

我明白你遇到的困扰了——在ComboBox的Change事件里修改完所有图表后，最后一个图表总是处于选中状态，常规的取消选中方法都不管用，又不想用SendKeys这种不太可靠的方式。

最优解决方案：避免激活图表（推荐） #

问题的根源在于你在循环里使用了cht.Activate，这会让每个图表依次成为激活状态，最后一个自然就停留在选中状态。而且在ComboBox的事件上下文里，直接调用单元格的Select/Activate经常会因为Excel的事件处理机制而不生效。

更好的做法是直接操作ChartObject的Chart属性，完全不需要激活图表，这样既不会产生选中状态的问题，代码运行效率也更高。

修改后的代码如下：

Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    
    Dim cht As ChartObject
    For Each cht In ActiveSheet.ChartObjects
        ' 直接通过cht.Chart访问图表对象，无需激活
        cht.Chart.ChartTitle.Text = ComboBox1.Value
        ' 其他操作也用cht.Chart代替ActiveChart
        ' Some other stuff, excluded.
    Next cht
    
    ' 现在不需要额外的取消选中代码了，因为从来没激活过图表
    Application.ScreenUpdating = True
End Sub

如果必须激活图表的替代方案 #

要是因为某些特殊需求必须激活图表，那可以在循环结束后，先恢复屏幕更新，再调用单元格选择，或者使用Application.Goto来强制切换焦点：

Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    
    Dim cht As ChartObject
    For Each cht In ActiveSheet.ChartObjects
        cht.Activate
        ActiveChart.ChartTitle.Text = ComboBox1.Value
        ' Some other stuff, excluded.
    Next cht
    
    Application.ScreenUpdating = True
    ' 先恢复屏幕更新，再选择单元格
    Range("A1").Select
End Sub

或者使用Application.Goto，它比直接Select更可靠：

Application.Goto ActiveSheet.Range("A1"), True

为什么之前的方法无效？ #

在ComboBox的Change事件中，Excel的事件处理流程会优先处理控件的交互状态，你在事件过程中调用的Range.Select/Activate可能会被事件后续的内部处理覆盖，导致看起来没生效。而不激活图表的方式从根源上避免了这个问题。

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