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

默认情况下，文本框在Excel中被黑色边框包围。 如果要从文本框中删除边框，该怎么办？ 以及如何从工作表中的所有文本框中删除边框或在Excel中创建无边框的文本框？ 本文将介绍帮助您解决问题的方法。

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

从Excel中的文本框中删除边框

使用Excel中的“无轮廓”功能很容易从Excel中的文本框中删除边框。 请执行以下操作。

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

2。 点击 格式 > 形状大纲 > 没有大纲。 看截图：

然后您可以看到边框立即从选定的文本框中删除，如下图所示。

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

下面的VBA代码可以帮助您从Excel当前工作表中的所有文本框中删除边框。 请执行以下操作。

1.在工作表中包含多个文本框，您将从中删除边框，然后按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的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.在工作表中，您将插入一个无边框的文本框，然后按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的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中的某些文本，如何在另一个单元格中返回值？