Установить RGB как переменную на основе значения ячейки - PullRequest
Новая
       41

Установить RGB как переменную на основе значения ячейки

0 голосов
/ 07 мая 2020

Я пытаюсь раскрасить передний цвет фигуры. Я устанавливаю комбинацию 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
...