Цвет из формы в Excel 2010

Question

Я хотел бы изменить цвет ячейки в зависимости от цвета фигуры. Кто-нибудь знает, как получить цвет фигуры с помощью VBA? Спасибо

Answer 1

Супер простой пример, чтобы установить цвет активной ячейки на цвет фигуры:

Sub dural()
    Dim shp As Shape

    Set shp = ActiveSheet.Shapes(1)
    v = shp.Fill.ForeColor
    ActiveCell.Interior.Color = v
End Sub