Question

我正在设计一个宏来检查给定PowerPoint幻灯片上的所有形状，图表和智能艺术，并打印它的字体颜色和样式。

（间接地）给我带来问题的路线是

MsgBox .TextFrame.TextRange.Font.Color.RGB

输出颜色，但它提供的MSaccess颜色不如RGB颜色有用。例如，白色文本块将显示为＆＃34; 16777215＆＃34;，而我希望看到＆＃34; 255,255,255＆＃34;

我在行中表示我想要.color.rgb，但这似乎没有什么区别。

我非常感谢任何帮助！谢谢！

Answer 1

你可以转换这个＆＃34; colorInt＆＃34;使用像

这样的RGB

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

Answer 2

使用Excel格式化RGB颜色：

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")

在VBA中将MSaccess颜色转换为RGB

2 个答案: