从选定图表中删除文本框

Question

以下代码允许用户从命名图表中删除文本框。

要选择图表，用户必须在宏中输入图表名称。

在此示例中，名称为“Chart xyz”。

如何构建代码，以便用户只需单击图表即可选择图表？

Sub DeleteTextBoxesFromASelectedChart()
  Dim ChrtObj As ChartObject
    On Error Resume Next
      Set ChrtObj = ActiveSheet.ChartObjects("Chart xyz")
          ChrtObj.Chart.TextBoxes.Delete
    On Error GoTo 0
End Sub

怎么说

Set ChrtObj = ActiveChart

？

Answer 1

一种可能性：

Sub DeleteTextBoxesFromActiveChart_v1()  
  If ActiveChart Is Nothing Then
     MsgBox "No chart selected. Please select a chart."
  Else
     ActiveChart.TextBoxes.Delete
  End If
End Sub