Hello Chris,
Thank you for reporting the issue of Office 2007. I have consulted Office
development team, and they confirmed that it is a known issue of the office
2007 which will be fixed in the next version of Office: Office 14.
A workaround for this bug is to set the property 'Color' instead of
'ThemeColor' because we can get the correct color through
ActiveWorkbook.Theme.ThemeColorScheme.Colors(msoTh emeLight1).RGB. Please
refer to the following codes:
Selection.Interior.Color =
ActiveWorkbook.Theme.ThemeColorScheme.Colors(msoTh emeLight1).RGB
Selection.Font.Color =
ActiveWorkbook.Theme.ThemeColorScheme.Colors(msoTh emeDark1).RGB
In this way, we do not need to worry about the break of the code, even if
the bug is fixed in future.
We, the newsgroup team, have also logged this issue for future reference.
Thank you again for your sharing.
Sincerely,
Jialiang Ge , remove 'online.')
Microsoft Online Community Support
==================================================
For MSDN subscribers whose posts are left unanswered, please check this
document:
http://blogs.msdn.com/msdnts/pages/postingAlias.aspx
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/subscripti...ult.aspx#notif
ications. If you are using Outlook Express/Windows Mail, please make sure
you clear the check box "Tools/Options/Read: Get 300 headers at a time" to
see your reply promptly.
Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/subscripti...t/default.aspx.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.