I'm trying to create a macro to insert a Text Box (Autoshape) in an
Active Cell.

I used the VBA macro recorder to create an initial macro, but have no
been able to have the text box placed in the active cell. I trie
modifying the code, but each time it places the text box in the area
originally recorded the macro. I'm a beginner.

Here is an example of the vba code without modification:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 222#, 69.75, 72#, 72#)
_
Select
Selection.ShapeRange.ScaleWidth 6.26, msoFalse
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.97, msoFalse
msoScaleFromTopLeft
Selection.Characters.Text = ""
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Thanks in advance. :

--
Bor
-----------------------------------------------------------------------
Borg's Profile: http://www.excelforum.com/member.php...fo&userid=3639
View this thread: http://www.excelforum.com/showthread.php?threadid=56175

I'd use something like:

Option Explicit
Sub testme01()

Dim myCell As Range
Dim myTextBox As TextBox

Set myCell = ActiveCell

With myCell
Set myTextBox = .Parent.TextBoxes.Add(Top:=.Top, Left:=.Left, _
Width:=.Width, Height:=.Height)
End With

With myTextBox
.Caption = "some stuff" 'if you want...
End With

End Sub

Borg wrote:

I'm trying to create a macro to insert a Text Box (Autoshape) in any
Active Cell.

I used the VBA macro recorder to create an initial macro, but have not
been able to have the text box placed in the active cell. I tried
modifying the code, but each time it places the text box in the area I
originally recorded the macro. I'm a beginner.

Here is an example of the vba code without modification:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 222#, 69.75, 72#, 72#).
_
Select
Selection.ShapeRange.ScaleWidth 6.26, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.97, msoFalse,
msoScaleFromTopLeft
Selection.Characters.Text = ""
With Selection.Font
Name = "Arial"
FontStyle = "Regular"
Size = 10
Strikethrough = False
Superscript = False
Subscript = False
OutlineFont = False
Shadow = False
Underline = xlUnderlineStyleNone
ColorIndex = xlAutomatic
End With

Thanks in advance. :)

--
Borg
------------------------------------------------------------------------
Borg's Profile: http://www.excelforum.com/member.php...o&userid=36396
View this thread: http://www.excelforum.com/showthread...hreadid=561752

--

Dave Peterson

Thanks! :)


--
Borg
------------------------------------------------------------------------
Borg's Profile: http://www.excelforum.com/member.php...o&userid=36396
View this thread: http://www.excelforum.com/showthread...hreadid=561752