Microsoft Office Forums - View Single Post - [Solved] VBA to change multiple change drop down font color and make bold

macropod · 08-08-2022, 12:18 AM

For example:

Code:

If .Title = "Condition" Then
    Select Case .Range.Text
      Case "High": .Range.Font.Color = RGB(192, 0, 0): .Range.HighlightColorIndex = wdRed
      Case "Medium": .Range.Font.Color = RGB(192, 0, 0): .Range.HighlightColorIndex = wdYellow
      Case "Low": .Range.Font.Color = RGB(64, 64, 64): .Range.HighlightColorIndex = wdBrightGreen
      Case Else: .Range.Shading.BackgroundPatternColorIndex = wdNoHighlight
    End Select: .Range.HighlightColorIndex = wdNoHighlight
  End If

or:

Code:

If .Title = "Condition" Then
    Select Case .Range.Text
      Case "High": .Range.Font.Color = RGB(192, 0, 0): .Range.Shading.BackgroundPatternColorIndex = wdRed
      Case "Medium": .Range.Font.Color = RGB(192, 0, 0): .Range.Shading.BackgroundPatternColorIndex = wdYellow
      Case "Low": .Range.Font.Color = RGB(64, 64, 64): .Range.Shading.BackgroundPatternColorIndex = wdBrightGreen
      Case Else: .Range.Shading.BackgroundPatternColorIndex = wdNoHighlight
    End Select
  End If

Applying/removing bold formatting can be done via:
: .Range.Font.Bold = True
or:
: .Range.Font.Bold = False
as appropriate on each line.