Вы уже знаете, что Excel позволяет создавать текстовые поля на ваших листах. В какой-то момент вам может потребоваться создать текстовое поле точно такого же размера, как и конкретная ячейка. Если вам нужно создать только одно или два таких текстовых поля, самый простой способ — выполнить следующие действия:

  1. Отобразите панель инструментов рисования.

  2. Щелкните инструмент Текстовое поле.

  3. Удерживая нажатой клавишу Alt, щелкните и перетащите, чтобы создать текстовое поле.

Когда вы удерживаете клавишу Alt, Excel вынуждает «привязать» стороны вашего текстового поля к сетке рисования, которая просто совпадает с границами ячеек на вашем листе. Результатом является текстовое поле точно желаемого размера.

Если вам нужно создать несколько таких текстовых полей одновременно, вы можете включить функцию привязки к поясу навсегда. Просто выберите Рисование (на панели инструментов Рисование) | Snap | В сетку.

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

Sub TextBox2Cell()

With ActiveCell         ActiveSheet.Shapes.AddTextbox _           msoTextOrientationHorizontal, .Left, _           .Top, .Width, .Height     End With End Sub

Немного изменив макрос, вы можете изменить его так, чтобы он создавал текстовые поля, размер которых не меньше размера любого выбранного вами диапазона ячеек:

Sub TextBox2Selection()

If TypeName(Selection) = "Range" Then         With Selection             ActiveSheet.Shapes.AddTextbox _               msoTextOrientationHorizontal, .Left, _               .Top, .Width, .Height         End With     End If End Sub

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

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2192) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Sizing_Text_Boxes_and_Cells_the_Same [одинаковый размер текстовых полей и ячеек].