Cor da forma no Excel 2010

Question

Eu gostaria de mudar a cor de uma célula dependendo da cor de uma forma. Alguém sabe como obter a cor de uma forma usando o VBA? Obrigado

    

Answer 1

Um exemplo super simples para definir a cor da célula ativa para a cor de uma forma:

Sub dural()
    Dim shp As Shape

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