How to change font and background colors based on Combo Box selection

gmaxey · #3 12-05-2016, 04:19 PM

If it is a content control you have to use the OnExit event in the ThisDocument module;

Code:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
  Select Case CC.Range.Text
    Case "Critical"
      CC.Range.Shading.BackgroundPatternColorIndex = wdRed
      CC.Range.Font.ColorIndex = wdWhite
    Case "Medium"
      CC.Range.Shading.BackgroundPatternColorIndex = wdYellow
      CC.Range.Font.ColorIndex = wdBlack
    Case "Low"
     CC.Range.Shading.BackgroundPatternColorIndex = wdGreen
     CC.Range.Font.ColorIndex = wdWhite
  End Select
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change Background Colors in Office 2013	boward57	Office	2	10-06-2015 06:53 PM
text based on Combo box selection	rosscortb	Word VBA	3	03-16-2015 06:57 PM
Combo Box Content Control Calculate on selection help	ciresuark	Word	0	03-06-2015 01:49 PM
Unable to change font colors from theme colors	choy	Word	3	08-01-2012 09:12 PM
How can I change the colors of cells automatically based on Job Completion?	Learner7	Excel	0	07-06-2010 10:47 PM