Remove Border from VBA text box

[jrisebo]

I want to remove the border from a textbox thats placed by VBA. How do I do that?

Sub Addtextbox()



         Shapes.Addtextbox(msoTextOrientationHorizontal, _
    Range("textbox_x"), Range("case1x2"), 40, 25) _
    .TextFrame.Characters.Text = Range("TextBox")
 
End Sub

 

[JoeMo]

Sub Addtextbox()
With ActiveSheet.Shapes.Addtextbox(msoTextOrientationHorizontal, _
    Range("textbox_x"), Range("case1x2"), 40, 25)
    .TextFrame.Characters.Text = Range("TextBox")
    .Line.Visible = msoFalse
End With
End Sub

 

[jrisebo]

Thanks, Case closed. See new thread for more fun.

 

[ParamRay]

.
.

Sub AddTextbox_NoLine()
        
    Const dblLEFT As Double = 90
    Const dblTOP As Double = 90
    Const dblWIDTH As Double = 180
    Const dblHEIGHT As Double = 180
        
    ActiveSheet.Shapes.AddTextbox( _
        msoTextOrientationHorizontal, _
        dblLEFT, _
        dblTOP, _
        dblWIDTH, _
        dblHEIGHT).Line.Visible = msoFalse

End Sub

 

[JoeMo]

Thanks, Case closed. See new thread for more fun.

You are welcome - thanks for the reply.