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:
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:
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