Windings Symbol Color

[zaska]

Hi all,

Is there any way to change the color of symbols(windings2Fomat) example a Star using VBA depending on the values in cell "A1"

Value Color

1 1 st star yello

2 1 st star yellow and second star red

3 1 st star yello , 2nd star red , 3rd star green

Maximum Five Values Only

Thank you

 

[zaska]

How to Change the Background Color of Windings Shapes using VBA In each cell

 

[MickG]

Select the Cell with the "Wingdings" , run code Enter colour code for each "WDG"as asked for "WDGS" Coloured accordingly.

[COLOR="Navy"]Sub[/COLOR] MG28May13
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Message, Title, Default, MyValue
Message = "Enter a value between 1 and 50"
Title = "Colour Stars"
Default = "1"
[COLOR="Navy"]For[/COLOR] n = 1 To Len(ActiveCell)
    MyValue = InputBox(Message, Title, Default)
    Range("a1").Characters(n, 1).Font.ColorIndex = MyValue
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[zaska]

Thank you

I am looking for coloring different stars in the same cell.

I meant for the first star " Yellow" , Second star " Red" etc...

Maximum there will be only 5 Stars in Each Cell

Your Code is turming all the Stars in a Cell to Single Color ...Which is selected through message box.


Thank you

 

[Ruddles]

Zaska, you should try this before you dismiss it.

 

[zaska]

Hi,

I tried the code and then only i posted the reply.

Thank you

 

[Ruddles]

It worked first time for me. Did you put five different colour codes into the InputBox?

What version of Excel are you using?

 

[MickG]

As Ruddles says you need to Insert a different Number each time the InputBox shows.
Mick

 

[zaska]

I am using Excel 2003 ..I tried the code and it worked when i gave five different values each time in the message box.

I Think since the No of Stars are limited i.e 5 we can assign different colors or a two color Filling in all the Five Stars Contained in a single cell , without having the choice of message box.

What i mean to say is.

If there is only One Single star in a cell then it should be Yellow.

If there are Two stars in a Cell then Yellow and Red.

Hope i have clearly expressed what i wish to learn.

Thank you

 

[VoG]

Try this: select the range then run the macro

Sub colours()
Dim i As Long, r As Range, c
c = Array(6, 3, 4, 5, 7)
For Each r In Selection
    For i = 1 To WorksheetFunction.Min(5, Len(r.Value))
        r.Characters(i, 1).Font.ColorIndex = c(i - 1)
    Next i
Next r
End Sub