Set color and background of special bullet in table cell

[kkkwj]

Hi, I work with tables that contain special characters / shapes in table cells. The color of the shape/icon indicates yes, no, inactive, in-progress, etc. And I have to change the fill color of the table cell if I change the state (color) of the Wingding symbol. It's a huge pain to do all this with the mouse, right-clicking, etc. I'd like to bind a macro to a keybinding.



I'm having a hard time finding the code to do the color changes. I can't record a macro with the symbol selected (the macro doesn't record right-click mouse ops, etc.).

I've tried things like

   Selection.Font.Fill.ForeColor = wdRed
   Selection.Font.Fill.BackColor = wdGreen
   Selection.ShapeRange.Item(1).Fill.ForeColor = wdBlue

but without success. Could someone point me in the right direction (or better yet, show code) to change the color of the selected symbol and the background color of the table cell that holds the selected symbol? (I don't know if selecting something in a cell automatically selects the cell object too...)

Thank you

[slaycock]

You need to identify the cell that has been selected.

With Selection.Range.Cells(1)
    .Range.Characters.First.Font.ColorIndex = wdGreen
    .Shading.Texture = wdTextureNone
    .Shading.ForegroundPatternColor = wdColorAutomatic
    .Shading.BackgroundPatternColor = wdColorOrange
End With

You can if you wish change .colorindex to .color. The .color property has been deprecated so no longer shows up in the intellisence but is still a fully functional property.

[kkkwj]

OMG! Flawless and Perfect!

Thank you so much! I didn't even have to select the special symbol inside of the cell!

I will think of you and smile at your kindness every time I run the macro. Best regards, Kevin