G
Gary''s Student
Here is an example right from the Recorder:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/20/2009 by James Ravenswood
'
'
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 258#, 42.75, _
150.75, 82.5).Select
Selection.Characters.Text = "Here is a Textbox"
With Selection.Characters(Start:=1, Length:=17).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A1").Select
ActiveSheet.Shapes("Text Box 1").Select
Selection.OnAction = "checkout"
Range("A1").Select
End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/20/2009 by James Ravenswood
'
'
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 258#, 42.75, _
150.75, 82.5).Select
Selection.Characters.Text = "Here is a Textbox"
With Selection.Characters(Start:=1, Length:=17).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A1").Select
ActiveSheet.Shapes("Text Box 1").Select
Selection.OnAction = "checkout"
Range("A1").Select
End Sub