Преобразование цветов MSaccess в RGB в VBA

Question

Я разрабатываю макрос, чтобы проверить все фигуры, диаграммы и интеллектуальное искусство на данном слайде PowerPoint и напечатать его цвет и стиль шрифта.

Линия, которая является (косвенно) дает мне проблемы, является

MsgBox .TextFrame.TextRange.Font.Color.RGB 

цвет воспроизводится, но он дает цвет MSACCESS, который не является столь же полезным, как цвет RGB. Например, белый блок текста будет отображаться как «16777215», тогда как я хотел бы видеть «255,255,255»

Я указал в строке, что я хочу .color.rgb, но это не похоже на Сделать разницу.

Буду признателен за любую помощь! Спасибо!

Answer 1

Вы можете преобразовать это "colorInt" в RGB, используя что-то вроде

B = floor(colorInt/(256*256)) 
G = floor((colorInt - B*256*256)/256) 
R = colorInt - B*256*256 - G*256 

Answer 2

Для форматирования цвета RGB с Excel:

Const color = vbMagenta 

Dim r&, g&, b& 
r = color And 255 
g = color \ 256 And 255 
b = color \ 65536 
Debug.Print Format(r * 1000000 + g * 1000& + b, "000,000,000")