如何在 Excel 中删除文本框的边框？

默认情况下，Excel 中的文本框被黑色边框包围。如果你想从单个文本框中删除边框、从工作表中的所有文本框中删除边框，或者创建一个没有边框的文本框，本指南将逐步引导你完成每种方法。

删除 Excel 中文本框的边框
删除 Excel 当前工作表中所有文本框的边框
在 Excel 中创建无边框的文本框

删除 Excel 中文本框的边框

使用 Excel 的“无轮廓”功能可以轻松删除文本框的边框。请按照以下步骤操作：

1. 选择要删除边框的文本框。

2. 点击 格式 > 形状轮廓 > 无轮廓。参见截图：

然后你可以立即看到所选文本框的边框已被删除，如下图所示。

删除 Excel 当前工作表中所有文本框的边框

以下 VBA 代码可以帮助你删除当前工作表中所有文本框的边框。请按照以下步骤操作：

1. 在包含多个文本框的工作表中，按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后将以下 VBA 代码复制到代码窗口中。

VBA 代码：删除当前工作表中所有文本框的边框

Sub DelectTextBoxLine()
'Update by Extendoffice 2018/5/15
    Dim xOle As Shape
    On Error GoTo LableNext
    For Each xOle In ActiveSheet.Shapes
        If xOle.Name Like "TextBox*" Then
            xOle.Line.Visible = msoFalse
        End If
LableNext:
    Next
End Sub

3. 按下 F5 键运行代码。然后立即从当前工作表的所有文本框中删除边框。

在 Excel 中创建无边框的文本框

另外，你可以创建一个无边框的文本框，以避免需要从文本框中删除边框。请按照以下步骤操作：

1. 在要插入无边框文本框的工作表中，按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后将以下 VBA 代码复制到代码窗口中。

VBA 代码：在 Excel 中创建无边框的文本框

Sub AddTextbox_NoLine()
'Update by Extendoffice 2018/5/15
    ActiveSheet.Shapes.AddTextbox( _
        msoTextOrientationHorizontal, 90, 90, 180, 180).Line.Visible = msoFalse
End Sub

3. 按下 F5 键运行代码。

立即在当前工作表中插入一个无边框的文本框。

相关文章：

• 如何在 Excel 中统计单元格是否包含文本或部分文本？
• 如何检查单元格值是否介于两个值之间（Excel）？
• 如何在 Excel 中根据相邻单元格等于、为空或包含文本进行求和？
• 如何在 Excel 中返回另一个单元格的值，如果某个单元格包含特定文本？