Я пытаюсь раскрасить передний цвет фигуры. Я устанавливаю комбинацию RGB как переменную, и когда я использую переменный текст, код работает. Однако, когда я ссылаюсь на значение ячейки, в которой хранится переменная, коды прерываются с типом несоответствия «ошибка времени выполнения 13».
Есть идеи, как установить цвет фигуры на основе текста в ячейке?
Sub ColorShape()
Dim s1 As Shape
Dim Healthcare As Long
Dim Industrial As Long
Healthcare = RGB(255, 175, 175)
Industrial = RGB(190, 190, 190)
With Worksheets("REOflowChart")
Set s1 = .Shapes.AddShape(msoShapeRoundedRectangle, Left:=100, Top:=10, Width:=110, Height:=60)
'Shape Fill Color
s1.Fill.ForeColor.RGB = ThisWorkbook.Worksheets("REOData").Cells(2, 8).Value 'cell value is "Healthcare"
s1.Line.Weight = 1
s1.Line.ForeColor.RGB = rgbBlack
End With
End Sub