Change the Border color when adding a TextBox

[Omer_K]

Hey all,
I have a VBA code that works fine where I add a textbox with some text,
I would like to know how I add a line to the code that changes the border color of the text box to red
I would appreciate your assistance

This is my VBA code:

With grp(j)


With ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left + ((.Width * 2 + 100) - sTxtW) / 2, .Top - 60, sTxtW, sTxtH)


.Fill.Visible = msoFalse






With .TextFrame2.TextRange.Characters


Text = "Test" & vbCrLf & "No " & sbg "


.ParagraphFormat.Alignment = msoAlignCenter


With .Font


.Fill.Visible = msoTrue


.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1


.NameComplexScript = "Arial"


.Size = 20






End With


End With


With .Line


.Visible = msoTrue


.ForeColor.ObjectThemeColor = msoThemeColorText1


End With


End With


End With


Next


End Sub

 

[OaklandJim]

Have a look at this macro that makes a textbox frame red. I hope that it helps.

Sub MakeTextBox()
'
    Dim wsTarget As Worksheet
    
    Dim oTextBox As Object
     
    Dim iLeft As Long
    
    Dim iTop As Long
    
    Dim iWidth As Long
    
    Dim iHeight As Long
    
    iLeft = 120
    
    iTop = 30
    
    iWidth = 150
    
    iHeight = 60
    
    Set wsTarget = ThisWorkbook.Worksheets("Sheet1")

    Set oTextBox = wsTarget.Shapes.AddTextbox(msoTextOrientationHorizontal, iLeft, iTop, iWidth, iHeight)
    
    With oTextBox
        
        .TextFrame.Characters.Text = "Test Test Box"
        
        .Name = "TestTextBox"

        With .Fill
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorBackground1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = 0
            .Transparency = 0
            .Solid
        End With
'
        With .Line
            .Visible = msoTrue
            
'           Lighter red
'           .ForeColor.RGB = RGB(192, 0, 0)
            
'           Darker Red
            .ForeColor.RGB = RGB(164, 0, 0)

            .Transparency = 0
            .Weight = 1
        End With
    
    End With

End Sub