How do I set Textbox properties?

[Bo Hansson]

In a document I've added a button to insert a Textbox like this:

Set myTB1 = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,
408, 45, 403, 310)

After that I would like to set the inside margins and remove the line that
frames the Textbox.
But I cannot figure out how to do that. Any suggestions?

/BosseH

 

[Greg]

Something like:
Sub Test()
Dim myTB1 As Shape
Set myTB1 =
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 408, 45,
403, 310)
With myTB1
.Line.Visible = msoFalse
.TextFrame.MarginLeft = 12
.TextFrame.MarginRight = 12
.TextFrame.MarginTop = 12
.TextFrame.MarginBottom = 12
End With
End Sub

 

[Bo Hansson]

Many thanks!

It works great.


/BosseH