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

1 Respuesta

3.696.100 pts. Si me amas, siempre voy a estar en tu corazón; si me...

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 Function

El resultado te lo pone en la celda D10


' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas