Как удалить границу у текстового поля в 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 Sub3. Нажмите клавишу 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 Sub3. Нажмите клавишу F5 для запуска кода.
Текстовое поле без границ вставляется в текущий лист немедленно.
Связанные статьи:
- Как подсчитать, если ячейка содержит текст или часть текста в Excel?
- Как проверить, находится ли значение ячейки между двумя значениями в Excel?
- Как использовать функцию СУММЕСЛИ, если соседняя ячейка равна, пуста или содержит текст в Excel?
- Как вернуть значение из другой ячейки, если ячейка содержит определенный текст в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек