PDA

View Full Version : [SOLVED] Changing Tab color to "No Color"



oam
08-13-2015, 07:57 PM
I am working on a macro to change tab colors based on two factors but I need to be able to change the tab color to "No Color" if the factors change. I have the code changing the tab colors but I am unable to get it to return to "No Color".

Paul_Hossler
08-13-2015, 08:27 PM
Macro recorder will usually point you in the right direction



ActiveWorkbook.Sheets("Sheet1").Tab.Color = xlNone

oam
08-13-2015, 09:07 PM
Thank you your help, How can I keep the same font style as a standard tab?

Paul_Hossler
08-14-2015, 06:01 AM
I didn't think changing the tab color would change the font.

Does it?

Also what do you mean by a 'standard tab'?

oam
08-14-2015, 03:52 PM
When I use the macro to set the color to "xlNone" the font color turns to black (see below) the other fonts are blue. If I manually change the tab color to "No Color" the tab font changes to light blue as shown below.


14170

Paul_Hossler
08-14-2015, 04:44 PM
See if this is any better. I don't have the blue colors on mine

14171



With ActiveWorkbook.Sheets("Sheet1").Tab
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With



The other thing to try would be to record a macro while you manually reset the color

oam
08-17-2015, 03:31 PM
It does not return it to how the tab was before but I may have to change it manually. Do you know how to change the font colors?

Thank you for your help

Paul_Hossler
08-17-2015, 04:55 PM
I think those parameters are part of the Theme - look at the picture and explore with your configuration.

The quickest thing I could suggest is to record a macro to do what you want, and then incorporate the resulting code




14204

oam
08-17-2015, 07:00 PM
Thank for your help! I think I have gone as far with this as I can; nowhere in the web info tells how to change the tabs back to there pervious theme so I picked a color that stands out and should work.

Again, thank you for all your help.