Hi if there is possible that the color may change based on the specific value given on a column. Here is the code i revise from Format_AreaBackground_UI-Script, when i run the script it will not respond can you check it, and i remove the reverse from the original code. Set d = Document.ComponentSet.Item("Drawing") d.Open Set ui = Application.UserInterface ui.Toolbars.Item("Format").ControlSet.Item("EditFormatAreaBackground").PushNamed("Theme") Do ' Nothing Loop Until ui.DisplaysModalDialog Set dlg = ui.ModalDialog With dlg.ControlSet .Item("CheckBoxPreview").Checked = True .Item("ComboBoxColumn").Text = "CONSUMPTION" if .Item("Values").Text < 14 THEN .Item("ComboBoxMethod").Text = "Unique Values" .Item("ComboBoxPalette").Text = "Reds" .Item("EditFormatApply").Push else if .Item("Values") > 14 THEN .Item("ComboBoxMethod").Text = "Unique Values" .Item("ComboBoxPalette").Text = "Greens" .Item("EditFormatApply").Push else if .Item("Values") = 14 THEN .Item("ComboBoxMethod").Text = "Unique Values" .Item("ComboBoxPalette").Text = "Yellows" .Item("EditFormatApply").Push end if end if end if .Item("ButtonOK").Push End With dlg.Accept
|