Как удалить границу у текстового поля в Excel?

По умолчанию текстовые поля в Excel окружены черными границами. Если вы хотите удалить границу у одного текстового поля, удалить границы у всех текстовых полей на листе или создать текстовое поле без границы, это руководство проведет вас через каждый метод пошагово.

Удаление границы у текстового поля в Excel
Удаление границ у всех текстовых полей на текущем листе в Excel
Создание текстового поля без границы в Excel

Удаление границы у текстового поля в Excel

Удалить границу у текстового поля в Excel легко с помощью функции «Нет контура». Пожалуйста, действуйте следующим образом.

1. Выберите текстовое поле, из которого вы хотите удалить границы.

2. Нажмите Формат > Контур фигуры > Нет контура. См. скриншот:

После этого вы увидите, что границы сразу удаляются из выбранного текстового поля, как показано на скриншоте ниже.

Удаление границ у всех текстовых полей на текущем листе в Excel

Приведенный ниже код VBA поможет вам удалить границы у всех текстовых полей на текущем листе в Excel. Пожалуйста, действуйте следующим образом.

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?