Working with TEXT BOXES [Form Controls]

There are two different kinds of text boxes, Form controls and ActiveX Controls. Form controls can only be used on worksheets whereas ActiveX Controls are far more advanced, offers a lot more customization, can be manipulated in more ways using VBA, and can also be used on userforms.

The examples in this post are text boxes from the group Form Controls. A text box is an empty field that can be used to submit data from the user or show data to the user. The image above shows a textbox containing text TextBox.

What's on this page

Formatting a text box
Insert a text box
Position, size and align a text box
Link text box to cell
Insert a text box programmatically
Font and font size (VBA)
Add or edit text (VBA)
Position a text box (VBA)
Resize a text box (VBA)
Link a macro to a text box (VBA)
Link text box to cell programmatically (VBA)
Hide/Show text box (VBA)
Delete text box (VBA)
Change text box color (VBA)
Where to put the VBA code?
Get excel *.xlsm file

There are more VBA articles in the VBA knowledge base. Text boxes are great for dynamic worksheets, dashboards, or interactive charts. They allow you to build amazing workbooks with minimal effort.

Formatting a text box

format a textbox

A textbox can be formatted in many different ways.

Opacity
background color
border width
border color
font size
font color
font

The image above shows a textbox containing text "A textbox", a black border and a blue background. Select the text box you want to format.

To select a textbox press with left mouse button on it with the left mouse button. A selected textbox has white circles around it called sizing handles.

I will explain how to use the sizing handles later in this article. Go to tab "Shape Format" on the ribbon. This allows you to change the background color, border size, border color, etc.

format a textbox shape format tab

The "Shape Format" tab is only visible on the ribbon if a textbox is selected.

Insert a text box

insert a text box

To create a text box simply go to tab "Insert" on the ribbon and press with left mouse button on the "Text box" button.

Now press and hold with the left mouse button where you want to place the text box on the worksheet.

Drag with mouse to size the button. Release left mouse button to create the text box.

Position, size and align a text box

Move a textbox

Press with left mouse button on with left mouse button to select the text box. Move the mouse cursor to the edge of the text box, the cursor changes.

Press and hold with left mouse button on the border of the text box. Drag with mouse to its new location. Release the mouse button to release the text box.

Textbox resize

To resize a textbox you first select the textbox so the sizing handles appear, they are white circles surrounding the textbox.

Press and hold with left mouse button on a sizing handle, then drag with mouse to resize the textbox.

To align a text box to the cell grid, select the text box in order to see the sizing handles. Press and hold the Alt key, press and hold with left mouse button on a sizing handle.

Drag with mouse to align the sizing handle with the cell grid. Release the left mouse button and the Alt key.

Link a text box to a cell

link text box to cell 1

These steps show how to link a text box to a cell value. The image above shows a text box linked to cell G3, cell G3 has value "Text value". The text box shows the exact same value as in cell G3.

Press with left mouse button on the text box to select it.
Press with left mouse button on in the formula bar, a prompt appears.
Type the cell reference to a cell you want to link. See the image above.

Link textbox to cell

This makes the text box dynamic meaning if the linked cell value changes the text box cell value changes accordingly. This technique is useful in an interactive dashboard, chart or worksheet.

Insert a text box programmatically

The AddTextBox method allows you to specify the distance from the cell grids top and left border, see picture above.

AddTextbox( Orientation, Left, Top, Width, Height)

It also lets you specify the width and height of the textbox you want to create. The macro below inserts a text box on worksheet Sheet1 60 points from the top border and 40 points from the left border. The text box width is 120 points and height is 80 points.

Sub TextBox()
Worksheets("Sheet1").Shapes.AddTextbox(msoTextOrientationHorizontal, _ 
   60, 40, 120, 80).TextFrame.Characters.Text = "Text Box"
End Sub

I will explain where to put this macro later in this article.

Font and font size

The following code changes the font to Arial and font size to 20 of text box "Textbox 1" located on worksheet Sheet1.

'Name macro
Sub ChangeFontSize()

'The With ... End With statement allows you to write shorter code by referring to an object only once instead of using it with each property.
With Worksheets("Sheet1").Shapes("TextBox 1").TextFrame.Characters.Font

'Change font 
.Name = "Arial"

'Change font size
.Size = 20
End With
End Sub

The picture to the right shows text font Arial and font size 20 in text box "Text Box 1" on worksheet Sheet1.

Add or edit text

The macro below changes text in the text box named "Shape1" to "Text Box1" on worksheet Sheet1.

'Name macro
Sub ChangeText()

'Change text box text
Worksheets("Sheet1").Shapes("Shape1").TextFrame.Characters.Text _ 
   = "Text Box1"
End Sub

Position a text box

The macro below changes the location of text box "TextBox 1" on Sheet1.

50 points from the left border and 30 points from the top border.

'Name macro
Sub PositionShape()

'The With ... End With statement allows you to write shorter code by referring to an object only once instead of using it with each property.
With Worksheets("Sheet1").Shapes("TextBox 1")

   'Move text box 50 points from left worksheet border
   .Left = 50

   ''Move text box 30 points from top worksheet border
   .Top = 30
End With
End Sub

Resize a text box

The picture above demonstrates a text box that resizes from height 100 points and width 50 points (left text box) to height 50 points and width 100 points (right text box).

'Name macro
Sub ResizeShape()

'The With ... End With statement allows you to write shorter code by referring to an object only once instead of using it with each property.
With Worksheets("Sheet1").Shapes("TextBox 1")

    'Change text box height to 50
    .Height = 50

    'Change text box width to 100
    .Width = 100
End With
End Sub

Assign a macro to a text box

The text box allows you to link a macro to a text box, what happens is that when a user press with left mouse button ons on a text box the assigned macro runs.

To assign a macro to a specific text box using VBA see following code.

'Name macro
Sub AssignMacro()

'Assign macro named Macro1 to text box named Textbox 1
Worksheets("Sheet1").Shapes("TextBox 1").OnAction = "Macro1"
End Sub

The macro above assigns Macro1 to "TextBox 1" on worksheet Sheet1.

Change text box color

The picture to the right shows "TextBox 1" with the color red.

The macro below changes the color of "TextBox 1" using RGB values.

Sub ColorShape()

'Change background color
Worksheets("Sheet1").Shapes("TextBox 1").Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

Link text box to cell

This macro links text box "TextBox 1" to cell D2, the text box will now show the value in cell D2 making it dynamic meaning you can easily change what is shown in the text box by changing the value, for example, with a formula in cell D2.

'Name macro
Sub LinkCell()

'Link cell to text box
Worksheets("Sheet1").TextBoxes("TextBox 1").Formula = "=$D$2"
End Sub

Hide/Show text box

The visible property allows you to hide the text box.

This macro hides "TextBox 1" on worksheet Sheet1.

'Name macro
Sub HideTextBox()

'Hide text box named Textbox 1
Worksheets("Sheet1").TextBoxes("TextBox 1").Visible = False
End Sub

Delete text box

This macro deletes "TextBox 2" on worksheet Sheet1.

'Name macro
Sub DeleteTextBox()

'Delete text box named Textbox 2
Worksheets("Sheet1").TextBoxes("TextBox 2").Delete
End Sub

Where to copy the code?

Follow these steps to insert macro to your workbook.

Copy macro.
Go to VB Editor (Alt+F11).
Press with mouse on "Insert" on the top menu.
Press with left mouse button on "Module" to insert a module to the workbook.
Paste macro to the code module.
Exit VB Editor.
Save the workbook as a macro-enabled workbook (*.xlsm).
If you don't the macro will be gone the next time you open the workbook.

Get the Excel file

Working-with-text-boxes-form-controlsv3.xlsm

Form controls category

Working with COMBO BOXES [Form Controls]
This blog post demonstrates how to create, populate and change comboboxes (form control) programmatically. Form controls are not as flexible […]

Create a Print button – macro
This article describes how to create a button and place it on an Excel worksheet, then assign a macro to […]

Populate a combo box (form control) [VBA]
In this tutorial I am going to explain how to: Create a combo box (form control) Filter unique values and […]

See all articles in 'form controls' category

Macro category

Save invoice data [VBA]
This article demonstrates a macro that copies values between sheets. I am using the invoice template workbook. This macro copies […]

Open Excel files in a folder [VBA]
This tutorial shows you how to list excel files in a specific folder and create adjacent checkboxes, using VBA. The […]

Split data across multiple sheets [VBA]
In this post I am going to show how to create a new sheet for each airplane using vba. The […]

See all articles in 'macro' category

See all articles in 'text boxes' category

More than 1300 Excel formulas

Excel categories

Conditonal Formatting

Pivot Tables

VBA

Macros

UDFs

2 Responses to “Working with TEXT BOXES [Form Controls]”

Michael says:

June 9, 2016 at 9:48 pm

I can't edit the font information through VBA. I can edit the text using ".TextFrame.Characters.Text", but i cannot edit the font or font size.

When i try i get:

Run-time error '1004':
Unable to set the Name property of the Font class

or

Run-time error '1004':
Unable to set the Size property of the Font class

Here's my code:
```
'Notes: "FirstWeekNum" is a Text Box Shape on a WorkSheet.  "FirstWeekScroll" is a Scrollbar Shape on a WorkSheet

'This works:
Worksheets("ANALYSIS").Shapes("FirstWeekNum").TextFrame.Characters.Text = Worksheets("ANALYSIS").Shapes("FirstWeekScroll").ControlFormat.Value

'Neither of the lines following nested lines work:
With Worksheets("ANALYSIS").Shapes("FirstWeekNum").TextFrame.Characters.Font
    .Name = "Arial"
    .Size = 20
End With
```
Reply
- Michael says:
  
  June 9, 2016 at 9:58 pm
  
  My bad ... just realized my problem. I'm working with a label instead of a text box. thbpt.

How to comment

How to add a formula to your comment
<code>Insert your formula here.</code>

Convert less than and larger than signs
Use html character entities instead of less than and larger than signs.
< becomes < and > becomes >

How to add VBA code to your comment
[vb 1="vbnet" language=","]
Put your VBA code here.
[/vb]

How to add a picture to your comment:
Upload picture to postimage.org or imgur
Paste image link to your comment.

Contact Oscar

You can contact me through this contact form