converting color values

[fraz627]

I looking to via VBA to change the fill color of a shape using the Hex color from a button on a userform,
example
ActiveSheet.Shapes.Range(Array("KEY_1")).Fill.ForeColor.RGB = RGB(255, 255, 0)
also the same would apply to the Text color


Also how would one use a variable for the RGB color, and convert between the two
thanks

 

[Micron]

You can convert RGB values with Hex function. Pretty sure the hex result will reverse the RGB values with the low order byte on the right and the high order byte on the left so you'd need to input the RGB values as BGR. If you're converting values you'll need to concatenate the hex value as in

...Fill.ForeColor.RGB = "&H" & Hex(RGB(255, 150, 0))

 

[Macropod]

You don't need to do any RGB conversions or assign & update variables to color the shape or its text. For that, all you need is code like:

Private Sub CommandButton1_Click()
With ActiveSheet.Shapes.Range(Array("KEY_1"))
  .TextFrame.Characters(1, .TextFrame.Characters.Count).Font.Color = CommandButton1.ForeColor
  .Fill.ForeColor.RGB = CommandButton1.ForeColor
End With
End Sub

Of course, if you want to assign color values independently, you could assign & update variables, as in:

Sub DemoRGB()
Dim R As Long, G As Long, B As Long
R = 255: G = 255: B = 0
With ActiveSheet.Shapes.Range(Array("KEY_1"))
  .TextFrame.Characters(1, .TextFrame.Characters.Count).Font.Color = RGB(R, G, B)
  .Fill.ForeColor.RGB = RGB(R, G, B)
End With
End Sub

or:

Sub DemoClr()
Dim Clr As Long
Clr = RGB(255, 255, 0)
With ActiveSheet.Shapes.Range(Array("KEY_1"))
  .TextFrame.Characters(1, .TextFrame.Characters.Count).Font.Color = Clr
  .Fill.ForeColor = Clr
End With
End Sub

 

[fraz627]

thanks you got me going in the right direction.