如何修改VBA代码创建匹配选中单元格的黄色背景文本框

你需要在创建文本框后，补充设置它的填充颜色属性。修改后的完整代码如下：

Sub TextBox2Selection()
    Dim newTextBox As Shape
    If TypeName(Selection) = "Range" Then
        With Selection
            Set newTextBox = ActiveSheet.Shapes.AddTextbox( _
              msoTextOrientationHorizontal, .Left, _
              .Top, .Width, .Height)
        End With
        ' 将文本框背景设置为黄色
        newTextBox.Fill.ForeColor.RGB = vbYellow
        ' 若需要自定义黄色调，可替换为具体RGB值：RGB(255, 255, 0)
    End If
End Sub

关键修改点： #

• 新增变量newTextBox存储新建的文本框对象，方便后续属性调整
• 通过newTextBox.Fill.ForeColor.RGB指定填充颜色，vbYellow是VBA内置的黄色常量，也可以根据需求替换为其他RGB数值

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