Macro to insert object into spreadsheet ??

[kluska]

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

[Tom Ogilvy]

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
>
>