Sub X()
    Dim sh As Excel.TextFrame
    
    Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle,  0 ,  0 ,  250 ,  140 ).TextFrame
    
    With sh
        .AutoMargins = False
        .Characters.Text = "Just a test."
        .MarginLeft =  0 
        .MarginRight =  0 
        .MarginBottom =  3 . 69 
        .MarginTop =  3 . 69 
    End With
End Sub

Sub X()
    Dim sh As Excel.Shape
    Dim tf As Excel.TextFrame
    
    Set sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal,  0 ,  0 ,  250 ,  140 )
    sh.Fill.ForeColor.RGB = RGB( 255 ,  0 ,  0 )

    Set tf = sh.TextFrame
    
    With tf
        .AutoMargins = False
        .Characters.Text = "Just a test."
        .MarginLeft =  0 
        .MarginRight =  0 
        .MarginBottom =  3 . 69 
        .MarginTop =  3 . 69 
    End With
End Sub