Notifications
Clear all

Inserir texto em uma imagem

4 Posts
3 Usuários
0 Reactions
867 Visualizações
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Prezados, boa tarde!!

Encontrei na internet uma planilha em excel muito interessante onde ela pinta o mapa do brasil de acordo com uma escala definida todas os estados brasileiros.

eu queria implementar ela colocando também o percentual de participação de cada estado em cima do mapa, porém não consegui fazer isso.

Estou enviando o link para baixar a planilha, assim fica mais fácil a compreensão.

http://www.sendspace.com/file/mcehbb

Grato.

 
Postado : 27/03/2014 2:58 pm
(@themrl16)
Posts: 60
Trusted Member
 

Bom dia Rilton!

Verifique a modificação que eu realizei no arquivo e se ela pode lhe atender: http://www.sendspace.com/file/tvtp0b

Basicamente, eu criei todas as Labels necessárias (27, uma para cada Estado) com nomes correspondentes a cada Sigla e também a Sub AtualizaLabels(), que é chamada dentro do Worksheet_Change na Sheet 'população'.
Dessa forma, o Laço analiza qual a porcentagem da população em cada Estado, e replica o valor + formato "0,00%" na Label que possui sua respectiva Sigla.

Abraços,

Murilo.

 
Postado : 28/03/2014 7:02 am
(@rilton)
Posts: 232
Reputable Member
Topic starter
 

Show themrl16!!!

Valeu

 
Postado : 28/03/2014 2:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Está de parabens, ótimo ajuste, e uma sugestão, poderíamos estar formatando a Cor do texto nos Label acrescentando a linha:

.OLEObjects(i).Object.ForeColor = RGB(128, 0, 0) 'Formata a cor do texto nos Label

[]s

 
Postado : 28/03/2014 6:00 pm