Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do I insert Text Box in ActiveCell
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Echo Contents of ActiveCell into a Text box. | Excel Discussion (Misc queries) | |||
If activecell.column = variable then activecell,offset (0,1) | Excel Discussion (Misc queries) | |||
If activecell is not text | Excel Programming | |||
Insert cell/format/text/fontsize and auto insert into header? | Excel Programming | |||
insert row below activecell | Excel Programming |