首页 文章

在VBA中将MSaccess颜色转换为RGB

提问于
浏览
0

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

(间接)给我带来问题的路线是

MsgBox .TextFrame.TextRange.Font.Color.RGB

输出颜色,但它给出的MSaccess颜色不如RGB颜色有用 . 例如,白色文本块将显示为“16777215”,而我希望看到“255,255,255”

我已在行中指出我想要.color.rgb,但这似乎没有什么区别 .

我非常感谢你的帮助!谢谢!

2 回答

  • 0

    您可以使用类似的东西将此“colorInt”转换为RGB

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

    要使用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")
    

相关问题