Macro para obtener código RGB de un Objeto a una celda
Lo que requiero es una macro, que haga lo siguiente:
Al seleccionar un Objeto (circulo) seleccionado, corro la macro y me escriba en una celda el código RGB del color que tenga el circulo seleccionado
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Pon lo siguiente en un módulo y ejecuta la macro CodigoRGB
Sub CodigoRGB()
'Por.Dante Amor
act_col = Selection.Interior.Color
blue = trunc(act_col / ((256) ^ 2))
green = trunc((act_col - blue * 256 ^ 2) / ((256) ^ 1))
red = act_col - blue * 256 ^ 2 - green * 256 ^ 1
Range("D10") = red & "," & green & "," & blue
End Sub
'
Function trunc(numb As Variant) As Long
If Round(numb) > numb Then
trunc = Round(numb) - 1
Else
trunc = Round(numb)
End If
End FunctionEl resultado te lo pone en la celda D10
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
