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