Private Sub GetRGB(ByVal Col As Long, ByRef r As Long, ByRef g As Long, ByRef b As Long)
r = Col Mod 256
g = ((Col And &HFF00&) / 256&) Mod 256&
b = (Col And &HFF0000) / 65536
End Sub
r = Col Mod 256
g = ((Col And &HFF00&) / 256&) Mod 256&
b = (Col And &HFF0000) / 65536
End Sub
本文介绍了一个使用VBA编写的子程序,该程序能够将长整型的颜色值拆分为红(Red)、绿(Green)和蓝(Blue)三个组成部分。通过对颜色值进行位运算,可以有效地提取出每个颜色通道的信息。
1万+

被折叠的 条评论
为什么被折叠?



