Macro to insert object into spreadsheet ??
 

Hi,

I would like to have a square (ie. three cells long) that contain
information that the user must input, and can be moved around th
spreadsheet.
Can I program this in VBA ?

Any help is greatly appreciated.

Ale

--
klusk
-----------------------------------------------------------------------
kluska's Profile: http://www.excelforum.com/member.php...fo&userid=3774
View this thread: http://www.excelforum.com/showthread.php?threadid=57324

Macro to insert object into spreadsheet ??
 

Sub AddATextBox()
Dim rng As Range, bx As Shape
Set rng = Range("B9:D9")
Set bx = ActiveSheet.Shapes.AddTextbox( _
msoTextOrientationHorizontal, _
Top:=rng.Top, _
Left:=rng.Left, _
Width:=rng.Width, _
Height:=0.75 * rng.Width)
bx.TextFrame.Characters.Text = "Add some text here"
With bx.TextFrame.Characters.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

End Sub


is a possibility.

--
Regards,
Tom Ogilvy


"kluska" wrote:


Hi,

I would like to have a square (ie. three cells long) that contains
information that the user must input, and can be moved around the
spreadsheet.
Can I program this in VBA ?

Any help is greatly appreciated.

Alex


--
kluska
------------------------------------------------------------------------
kluska's Profile: http://www.excelforum.com/member.php...o&userid=37740
View this thread: http://www.excelforum.com/showthread...hreadid=573242