How I can get color (RGB value) from .ThemeColor + .TintAndShade?
Hello,
I want to create a form with button. The button must be coloured in one from color theme Excel_2007. I can get base color theme (10 color: XlThemeColor): Dim Color (1 To 10) As Integer Dim Scheme As ThemeColorScheme Set Scheme = ActiveWorkbook.Theme.ThemeColorScheme For Color = 1 To 10 X(Color) = Scheme(Color).RGB Next Set Scheme= Nothing 'and MyForm.MyButton.BackColor=X(3) '(for example) X -array that have 10 color active theme. But I need to define more colors in palette (50 derivative of base colors). If I deal with cell that I can use: Range("A1").Select With Selection.Interior .ThemeColor=xlThemeColorAccent1 '(for example) .TintAndShade = 0.8 '(take on a value from 1 to -1). We to define any from derivative of base colors End With But Button have not ".TintAndShade" property! May be if I know X and TintAndShade value, can I to calculate result color? P.S. I can be coloured cells in 60 color. Then I can to recognize RGB for each cell and give it to button. But it not correctly way. |
How I can get color (RGB value) from .ThemeColor + .TintAndShade?
Tony Jollans has written an article about this he
http://www.wordarticles.com/Articles/Colours/2007.htm Unfortunately this article stops just shy of paydirt (the article is still being edited). I read another pair of articles Tony wrote which actually bring this to conclusion, but I can't find them. The links I have are he http://proofficedev.com/blog/2007/08...d-2007-part-1/ http://proofficedev.com/blog/2007/10...d-2007-part-2/ but when I follow them, all I get are php errors. I notified the webmaster, so hopefully these will be up again soon. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. - http://PeltierTech.com _______ "visual73" wrote in message ... Hello, I want to create a form with button. The button must be coloured in one from color theme Excel_2007. I can get base color theme (10 color: XlThemeColor): Dim Color (1 To 10) As Integer Dim Scheme As ThemeColorScheme Set Scheme = ActiveWorkbook.Theme.ThemeColorScheme For Color = 1 To 10 X(Color) = Scheme(Color).RGB Next Set Scheme= Nothing 'and MyForm.MyButton.BackColor=X(3) '(for example) X -array that have 10 color active theme. But I need to define more colors in palette (50 derivative of base colors). If I deal with cell that I can use: Range("A1").Select With Selection.Interior .ThemeColor=xlThemeColorAccent1 '(for example) .TintAndShade = 0.8 '(take on a value from 1 to -1). We to define any from derivative of base colors End With But Button have not ".TintAndShade" property! May be if I know X and TintAndShade value, can I to calculate result color? P.S. I can be coloured cells in 60 color. Then I can to recognize RGB for each cell and give it to button. But it not correctly way. |
How I can get color (RGB value) from .ThemeColor + .TintAndShade?
Thanks a lot!
"Jon Peltier" сообщил/сообщила в новостях следующее: ... Tony Jollans has written an article about this he http://www.wordarticles.com/Articles/Colours/2007.htm Unfortunately this article stops just shy of paydirt (the article is still being edited). I read another pair of articles Tony wrote which actually bring this to conclusion, but I can't find them. The links I have are he http://proofficedev.com/blog/2007/08...d-2007-part-1/ http://proofficedev.com/blog/2007/10...d-2007-part-2/ but when I follow them, all I get are php errors. I notified the webmaster, so hopefully these will be up again soon. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. - http://PeltierTech.com _______ "visual73" wrote in message ... Hello, I want to create a form with button. The button must be coloured in one from color theme Excel_2007. I can get base color theme (10 color: XlThemeColor): Dim Color (1 To 10) As Integer Dim Scheme As ThemeColorScheme Set Scheme = ActiveWorkbook.Theme.ThemeColorScheme For Color = 1 To 10 X(Color) = Scheme(Color).RGB Next Set Scheme= Nothing 'and MyForm.MyButton.BackColor=X(3) '(for example) X -array that have 10 color active theme. But I need to define more colors in palette (50 derivative of base colors). If I deal with cell that I can use: Range("A1").Select With Selection.Interior .ThemeColor=xlThemeColorAccent1 '(for example) .TintAndShade = 0.8 '(take on a value from 1 to -1). We to define any from derivative of base colors End With But Button have not ".TintAndShade" property! May be if I know X and TintAndShade value, can I to calculate result color? P.S. I can be coloured cells in 60 color. Then I can to recognize RGB for each cell and give it to button. But it not correctly way. |
All times are GMT +1. The time now is 01:50 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com