Descrição:
Como fazer para, a partir de um valor em decimal absoluto, retornar os valores RGB?
Solução:
Para encontrar a combinação RGB, é necessário utilizar scripts. O exemplo abaixo foi aplicado no evento Click de um botão:
Dim ColorValue, R, G, B
ColorValue = Screen.Item("Retangulo1").ForegroundColor
B = Int(ColorValue /
65536)
G = Int((ColorValue - 65536 * B) / 256)
R = ColorValue - (65536 *
B + 256 * G)
MsgBox "R = " & R & Chr(13) & "G = " & G
& Chr(13) & "B = " & B
