Change text color in a textbox

[zinah]

Hi,

I have this macro that should change the text color in a textbox with conditions:

- If value < 3% then change text color to red
- If value > 3% then change text color to blue
- Else color to black

The textbox names are : 2018_Delta, 2017_Delta, and 2016_Delta

The macro changes the font to blue instead of conditions I set, can you help please?




Sub Color_Change()
Dim t2Sht As Worksheet
Set t2Sht = Sheets("It would take")
t2Sht.Activate


Dim D_shps As Variant, Me_shp As Shape
D_shps = Array("2018", "2017", "2016")


For Each itm In D_shps
Set D_shp = ActiveSheet.Shapes(itm & "_Delta")
With D_shp
If .TextFrame.Characters.Text < -0.03 Then
.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)

ElseIf .TextFrame.Characters.Text > 0.03 Then
.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 255)

Else: .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
End If
End With
Next itm




End Sub

 

[zinah]

Thanks a million! It worked perfectly great I really appreciate your valued help and patience!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[zinah]

Hi,

I need another help please, I have below macro that create boxes and I need to show only the bottom borders of these boxes, can you tell me how?

    .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

 

[DanteAmor]

You should create a new thread with the corresponding title, that way the theme will remain to serve someone else

 

[zinah]

Can you show me how?

 

[zinah]

This is the whole macro:

 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]

Can you show me how?

Just create a new question in the forum.

 

[zinah]

Thank you! I just did post a new question

 

[DanteAmor]

You're welcome.
I'll try to help you