Блог

Я пытаюсь изменить цвет нескольких фигур на основе таблицы на другой вкладке. Таблица содержит часть, квадрант, название фигуры и значение (ячейка с определенным цветом.) Я пытаюсь привязать фигуру к цвету, используя имя фигуры и диапазон расположения ячейки цвета, но я получаю не определенную подфункцию. Цвета для значений в таблице основаны на условном формате.

 Sub Update()

Dim CellColor As Long
Dim ShapeColor As Variant

    CellColor = Worksheets("Sheet1").Range("D2").DisplayFormat.Interior.Color
    ShapeColor = Worksheets("Sheet1").Range("C2").Value
    Worksheets("main").Shapes(ShapeColor).Fill.ForeColor.RGB = CellColor

    Worksheets("main").Select
End Sub
  

Переношу мои комментарии к ответу:

• Set здесь не следует использовать. Worksheet("main") отсутствует s — Worksheets .
• Если это условное форматирование, то вам нужно поработать с Worksheets("Sheet1").Range("D2").DisplayFormat.Interior.Color .