I need your help to align text in textbox and to control the text box line color

**Osama Zedan** · 12-05-2012, 05:43 AM

I need your help to align the text inside text box and to control the text box line color or to make it non bordered
The code i use is:

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Range("Q26") - 10, Range("R26") + 5, _
       Range("S26") + 20, 20).TextFrame.Characters.Text = Range("S26")

   With Selection.Characters(Start:=1, Length:=16).Font
      .Name = "Calibri"
      .FontStyle = "Regular"
   End With

oh one more thing, If I want to make it vertically it rotates down.How can I make the text inside text box rotates up instead

Please if any one can help me in that, I have searched the net a lot but I couldn't find that

Moderator's Edit: Use code tags when posting code. To do so in future, select your code and click on the # icon at the top of your post window.

**ozeh** · 12-05-2012, 06:15 AM

I would try it this way.

Dim shpTxtBox As Shape

Set shpTxtBox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Range("Q26") - 10, Range("R26") + 5, _
Range("S26") + 20, 20)

With shpTxtBox
    .TextFrame.Characters.Text = Range("S26")
    .TextFrame.Characters.Font.Name = "Calibri"
    .TextFrame.Characters.Font.FontStyle = "Regular"
    .Line.ForeColor.SchemeColor = 10 ' make red
    .Line.Visible = msoFalse ' make invisible
    .Select
End With

Selection.Orientation = xlUpward

You need to modify this to suit Your needs. If You don't know what properties the shape object has, You can use the macro recorder.

**Osama Zedan** · 12-05-2012, 07:32 AM

Thaaaaaanks alooot

it rotated the text up and erased the line of textbox, it worked.Couldn't you help me in aligning text inside textbox to center instead of right or left??
and really thanks

**event21** · 12-05-2012, 07:47 AM

Hi -

Look for

.TextFrame.HorizontalAlignment = xlHAlignLeft
.TextFrame.HorizontalAlignment = xlHAlignCenter
.TextFrame.HorizontalAlignment = xlHAlignRight

Regards,
Event

**Osama Zedan** · 12-05-2012, 08:04 AM

IT Worked ^____^
Thanks for you all

I need your help to align text in textbox and to control the text box line color

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

I need your help to align text in textbox and to control the text box line color

Re: I need your help to align text in textbox and to control the text box line color

Re: I need your help to align text in textbox and to control the text box line color

Re: I need your help to align text in textbox and to control the text box line color

Re: I need your help to align text in textbox and to control the text box line color

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions