- 05 Jan 2016 às 09:00
#6130
Estou fazendo um mapa interativo do Ceara. Mas dar erro sempre alguém me ajudar.
Exemplo do código:
Sub ColorirMapa()
Dim cidades As Range
Dim Celula As String
For Each cidades In Range("CIDADES")
Celula = Cells(cidades.Row, 3)
ActiveSheet.Shapes(cidades).Fill.ForeColor.RGB = Range(Celula).Interior.Color
Next cidades
End Sub
Exemplo do código:
Sub ColorirMapa()
Dim cidades As Range
Dim Celula As String
For Each cidades In Range("CIDADES")
Celula = Cells(cidades.Row, 3)
ActiveSheet.Shapes(cidades).Fill.ForeColor.RGB = Range(Celula).Interior.Color
Next cidades
End Sub
Você não está autorizado a ver ou baixar esse anexo.
