如何修改VBA代码实现点击选图表删TextBoxes及ActiveChart用法？

直接调整代码，让宏对当前选中（激活）的图表生效，无需手动输入图表名称。修改后的代码如下：

Sub DeleteTextBoxesFromSelectedChart()
    Dim targetChart As Chart
    ' 检查是否有激活的图表
    On Error Resume Next
    Set targetChart = ActiveChart
    On Error GoTo 0
    
    If Not targetChart Is Nothing Then
        ' 删除该图表中的所有文本框
        targetChart.TextBoxes.Delete
        MsgBox "文本框已删除", vbInformation
    Else
        MsgBox "请先选中一个图表再运行宏", vbExclamation
    End If
End Sub

1. 变量类型必须匹配：ActiveChart返回的是Chart对象（代表图表本身，不管是工作表里的嵌入式图表，还是独立的图表工作表），所以变量必须声明为Chart类型，而非原代码里的ChartObject（ChartObject是工作表上承载图表的容器对象）。强行给ChartObject类型变量赋值ActiveChart会触发类型不匹配错误。
2. 先判断有效性再使用：运行宏前如果用户没选中图表，ActiveChart会是Nothing，直接操作会报错。可以用On Error Resume Next配合If Not ... Is Nothing的逻辑，先确认存在激活的图表再执行操作。
3. 获取嵌入式图表的容器：如果目标是工作表里的嵌入式图表，想要获取它的ChartObject容器，可通过ActiveChart.Parent实现，示例代码：

Dim chrtObj As ChartObject
Set chrtObj = ActiveChart.Parent

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