Este fórum está sendo desativado

[Paduan]

Boa tarde a todos! Estou precisando de uma macro excel que que faça o seguinte: Fiz uma imagem no CorelDraw na forma de uma arcada dentária e exportei em Windows Metafile (.wmf). Inseri na Plan1 e desagrupei, assim consegui todos os dentes como Shapes. Preciso que ao clicar em uma das shapes (dentes) ela mude de cor e me retorne um valor. E possível? Podem me ajudar? Obrigado e parabéns pelas suas aulas, acompanhe todas.

[alexandrevba]

Boa tarde!!

O objeto é realmente um shape.

Código: Selecionar todos

Option Explicit


Sub SeuShapeParaExcel_e_Shape()
    
    Dim Shp As Shape
    
    Set Shp = ActiveSheet.Shapes(Application.Caller)
    With Shp
        If .Fill.ForeColor = 192 Then
            .Fill.ForeColor.RGB = RGB(0, 176, 80)
        Else
            .Fill.ForeColor.RGB = RGB(192, 0, 0)
        End If
    End With
End Sub

Att