![]() |
#7
|
|||
|
|||
![]() Code:
Sub DDOnExit() ActiveDocument.Unprotect Select Case ActiveDocument.FormFields("Dropdown1").Result Case "Positive": Selection.Tables(1).Columns(Selection.Cells(1).ColumnIndex).Shading.BackgroundPatternColorIndex = wdBrightGreen Case "Negative": Selection.Tables(1).Columns(Selection.Cells(1).ColumnIndex).Shading.BackgroundPatternColorIndex = wdDarkRed End Select ActiveDocument.Protect wdAllowOnlyFormFields, True End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
pgammag | Word | 9 | 08-20-2019 04:17 PM |
![]() |
info_guy2 | Excel | 1 | 07-03-2014 10:07 AM |
![]() |
arshaw | Word | 5 | 02-26-2013 12:37 PM |
![]() |
Lucky | Excel | 2 | 10-03-2011 11:41 PM |
Conditional Formatting | namedujour | Excel | 3 | 08-25-2011 01:46 PM |