Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Add TextBox and format it

Sub AddTextBox()     ActiveSheet.Shapes.AddTextBox(msoTextOrientationHorizontal, 2.5, 1.5, _         116, 145).TextFrame.Characters.text = "This is a test of inserting a text box to a sheet and adding some text."     With Selection.Characters(Start:=1, Length:=216).font         .name = "Arial"         .FontStyle = "Regular"         .size = 10         .Strikethrough = False         .Superscript = False         .Subscript = False         .OutlineFont = False         .Shadow = False         .Underline = xlUnderlineStyleNone         .ColorIndex = xlAutomatic     End With     range("I15").Select End Sub