Este fórum está sendo desativado

[amenezes]

Bom dia .. eu fiz um mapa com as mesmas configurações da vídeo aula de mapas interativos, porém ele não coloriu...
Também já refiz com um outro arquivo e também não coloriu....


Sub SelecionarEstado()

Dim sEstado As String
sEstado = ActiveSheet.Shapes(Application.Caller).Name
shtmapa.Range("AA4").Value = sEstado

cpadrao = shtconfig.Range("corpadrao").Interior.Color
cdestaque = shtconfig.Range("cordestaque").Interior.Color

ActiveSheet.Shapes("Brasil").Fill.ForeColor.RGB = cpadrao
ActiveSheet.Shapes(sEstado).Fill.ForeColor.RGB = cdestaque


End Sub


Alguém poderia me ajudar?

Muito Obrigado

[Paduan]

Boa noite 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.