Как убрать рамку у текстового поля в Excel?
По умолчанию текстовые поля в Excel окружены чёрными рамками. Хотите удалить рамку у одного текстового поля, убрать рамки со всех текстовых полей на листе или сразу создать текстовое поле без рамки? Это пошаговое руководство покажет вам каждый из этих способов.
Удаление рамки у текстового поля в Excel
Удаление рамок у всех Текстовое поле на Текущий лист в Excel
Создание текстового поля без рамки в Excel
Удаление рамки у текстового поля в Excel
Убрать рамку у текстового поля в Excel легко — просто воспользуйтесь функцией «Нет контура». Выполните следующие действия.
1. Выделите текстовое поле, у которого требуется убрать рамку.
2. Щёлкните Формат > Контур фигуры > Нет контура. См. снимок экрана:

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

Удаление рамок у всех Текстовое поле на Текущий лист в Excel
Приведённый ниже код VBA поможет удалить рамки у всех текстовых полей на текущем листе в Excel. Выполните следующие действия.
1. На листе, содержащем несколько Текстовых полей, у которых нужно удалить рамки, нажмите клавиши Alt+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. На листе, куда вы хотите вставить текстовое поле без рамки, нажмите клавиши Alt+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?
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек