Проблема сложная! Объясню подробно.

Для начала посмотрите на процесс закрашивания (заливки) ячейки в Excel_2007. Обратите внимания на цвета - это не стандартные цвета, а цвета Цветовой Темы. Всего их 60.

Этими цветами я хочу раскрасить кнопки на своей форме, а проще сказать получить такую же панельку с палитрой.

Чтобы получить базовые цвета (всего их в палитре используется 10) Цветовой Темы я могу сделать так:
где xlThemeColor - соответствующая константа Excel или число от 1 до 10.

Вопрос:
Как получить остальные 50 цветов Текущей Цветовой Темы?

P.S. Есть свойство .TintAndShade. Но и оно, как я выяснил, изменяться может по разному для этих 50 цветов.

Проблема решена. Пример в утилитах Уокенбаха. Спасибо за внимание :)