VBA遍历工作表代码失效：仅改首表字体、未删文本框求助

需求 #

遍历工作簿所有工作表，完成两个操作：

• 把所有单元格字体设为黑色
• 删除所有文本框，再添加新文本框

用户尝试的代码 #

Dim ws As Worksheet
Dim shp As Shape
    For Each shp In ws.Shapes
        shp.Delete
    Next shp

For Each ws In ThisWorkbook.Worksheets

   Range("A1").CurrentRegion.Select

With Selection.Font
    .ThemeColor = xlThemeColorLight1
    .TintAndShade = 0
    
  
 End With
Next ws

失效原因 #

• 文本框删除代码未执行：删除形状的循环写在了遍历工作表的循环外面，此时ws变量还未被赋值（未指向任何具体工作表），这段代码相当于无效代码，自然无法删除文本框。
• 字体设置仅作用于第一个工作表：Range("A1").CurrentRegion.Select没有指定所属工作表，默认只会操作当前激活的工作表。遍历过程中未切换工作表激活状态，所以只有初始激活的第一个工作表会被修改。另外xlThemeColorLight1对应的是白色，和需求中的黑色完全不符。

修正后的代码 #

Dim ws As Worksheet
Dim shp As Shape
Dim newShp As Shape

For Each ws In ThisWorkbook.Worksheets
    ' 将当前工作表所有单元格字体设为黑色
    ws.Cells.Font.Color = vbBlack
    
    ' 删除当前工作表内的所有文本框（仅删除文本框类型形状，避免误删其他元素）
    For Each shp In ws.Shapes
        If shp.Type = msoTextBox Then
            shp.Delete
        End If
    Next shp
    
    ' 在当前工作表添加新文本框（位置、大小、内容可按需调整）
    Set newShp = ws.Shapes.AddTextbox( _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=200, Height:=50)
    newShp.TextFrame2.TextRange.Text = "新文本框内容"
Next ws

关键说明 #

• 操作单元格时必须加ws.前缀，明确指定当前遍历的工作表，避免依赖默认激活的工作表。
• 删除形状时加入类型判断，防止误删图表、图片等非文本框元素。
• 使用vbBlack直接设置黑色字体，比主题颜色更直观准确，不会混淆颜色值。

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