Make the bottom border of textbox visible

[zinah]

Hi,

I have below macro that create boxes and I need to show only the bottom borders of these boxes, can anyone help me with that?

'''BUILD THE eCnt LABEL BOX'''    
    ew = galaxyF.Width / 2.3
    eh = galaxyF.Height / eCnt
    el = galaxyF.Left
    et = galaxyF.Top + (eh * (e - 1))
Set Empl_Lbl = rSht.Shapes.AddShape(msoShapeRectangle, el, et, ew, eh)
With Empl_Lbl
    .Name = "Empl_" & e & "_Lbl"
    .Placement = xlFreeFloating
    .Fill.ForeColor.RGB = RGB(255, 255, 255)
    .Fill.Visible = msoFalse
    .Line.ForeColor.RGB = RGB(100, 100, 100)
    .Line.Visible = False
    .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
    .TextFrame2.TextRange.Font.Size = 8
    .TextFrame2.TextRange.Font.Name = "Tahoma"
    .TextFrame.MarginLeft = 0.05 * pix
    .TextFrame.MarginRight = 0.05 * pix
    .TextFrame.MarginTop = 0.05 * pix
    .TextFrame.MarginBottom = 0.05 * pix
    .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
    .TextFrame2.AutoSize = msoAutoSizeNone
    .TextFrame.VerticalOverflow = xlOartVerticalOverflowOverflow
    .TextFrame.HorizontalOverflow = xlOartHorizontalOverflowOverflow
    .TextFrame2.WordWrap = msoTrue




.TextFrame2.TextRange.Characters.Text = "LABEL " & e & ":"
    .TextFrame2.TextRange.Font.Bold = msoTrue
End With

 

[DanteAmor]

I am not sure that it is possible to change a single edge of the textbox, it is not like a cell.
But you could try with an image (without borders) to cover the edges that you do not want to show.

 

[zinah]

How can I write the macro to make that happen?

 

[DanteAmor]

Just create a label and place it on top of the textbox, obviously the label should go without text.
But now that I see your question, you are not creating a textbox, you are creating a shape, you are doing the same thing and you are making it, you should try it

 

[Norie]

Are you working with shapes on a worksheet?

 

[DanteAmor]

Are you working with shapes on a worksheet?

}

That's right, apparently he are creating a shape in some position on the sheet

Set Empl_Lbl = rsht.Shapes.AddShape(msoShapeRectangle, el, et, ew, eh)

 

[DanteAmor]

Do you want some like this:

You could create a form without borders, create another form of "line" and place it just below the first form

 

[zinah]

Yes, I am

 

[zinah]

@Norie Yes, I am working with shapes on a worksheet

 

[zinah]

How can I insert a picture in here?