Textbox: highlight green, selected text

[viktoryeung]

Hi Gang,
Is it possible to set the textbox.backcolor = green, for only a portion of a textbox???
(I want the user to be able to highlight portions of text in a textbox)

 

[erik.van.geit]

Hi!

No that's impossible.
But you can highlight parts of the text itself.

recording a macro you'll find code like this (I just enhanced it a bit)
(the "bbbbb" will be red)

Sub Macro2()
Dim rng As Range
Set rng = Range("D1")

With rng
.FormulaR1C1 = "aabbbbbaa"
    With .Characters(Start:=1, Length:=2).Font
        .Name = "Arial"
        .FontStyle = "Standaard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With .Characters(Start:=3, Length:=5).Font
        .Name = "Arial"
        .FontStyle = "Standaard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
    With .Characters(Start:=8, Length:=2).Font
        .Name = "Arial"
        .FontStyle = "Standaard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End With
End Sub

this can be reduced to:

Sub Macro2()
Dim rng As Range
Set rng = Range("D1")

With rng
.FormulaR1C1 = "aabbbbbaa"
.Characters(Start:=3, Length:=5).Font.ColorIndex = 3
End With

End Sub

can this give you some ideas?
kind regards,
Erik

 

[viktoryeung]

Impossible????
well i guess this cant be done through ExcelVBA, but maybe there might be an API call or something????
Comon! wheres the "Can Do" attitude!

 

[erik.van.geit]

It is impossible to cross the sea by feet.
It is impossible to fly with you arms.

There could be complicated workarounds like.
type "aabbbbbaa" in B1
select A1 to C1
Format horizontal: center acroos selection
set column widths to 3
fill cell in middle with other color
OR
every character in another cell...

If you want a CANDO, knock the door of Bill Gates!

kind regards,
Erik