我来帮你搞定这个重复创建文本框的问题！咱们要做的就是在生成文本框之前，先检查图表里有没有已经存在符合条件的文本框，有就直接退出，没有再执行创建代码。下面是完整的实现方案：

完整宏代码 #

Sub AddUnitTextBox()
    Dim targetChart As Chart
    Dim shp As Shape
    Dim textBoxExists As Boolean
    
    ' 先确认当前选中的是图表
    On Error Resume Next
    Set targetChart = ActiveChart
    On Error GoTo 0
    If targetChart Is Nothing Then
        MsgBox "请先选中目标图表！"
        Exit Sub
    End If
    
    textBoxExists = False
    
    ' 遍历图表内的所有形状，仅检查文本框类型
    For Each shp In targetChart.Shapes
        ' 判断是否为文本框，且位置、尺寸完全匹配目标参数
        If shp.Type = msoTextBox Then
            If shp.Left = 0 And shp.Top = 0 And shp.Width = 80 And shp.Height = 20 Then
                textBoxExists = True
                Exit For ' 找到匹配项就提前退出循环
            End If
        End If
    Next shp
    
    ' 如果已存在符合条件的文本框，直接终止代码
    If textBoxExists Then
        Exit Sub
    End If
    
    ' 原有的文本框创建代码
    targetChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 80, 20).Select
    With Selection.ShapeRange(1).TextFrame2.TextRange
        .Characters.Text = "[Units]"
    End With
End Sub

关键细节解释 #

• 限定仅统计图表内的文本框：通过targetChart.Shapes直接遍历目标图表下的所有形状，而非整个工作表的ActiveSheet.Shapes，再通过shp.Type = msoTextBox筛选出仅文本框类型的形状，完全贴合你的需求。
• 检查位置与尺寸匹配：对比文本框的Left（左位置）、Top（上位置）、Width（宽度）、Height（高度）四个属性，和你要创建的文本框参数（0,0,80,20）完全一致时，判定为重复项。
• 额外容错处理：添加了选中图表的判断，避免用户没选图表就运行宏报错，提升了代码的健壮性。

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