Notifications
Clear all

Zoom ao passar o mouse sobre uma figura

6 Posts
4 Usuários
0 Reactions
3,445 Visualizações
(@tutoelizeu)
Posts: 0
New Member
Topic starter
 

Bom dia meus amigos,

Essa eu acho que esta é bem difícil, faz alguns meses que estou tentando melhorar um Projeto que tenho de mapa interativo no Excel. mas não estou conseguindo.

Eu tenho um Mapa com as cidades, Tenho uma macro que pinta as cidades de acordo com os valores de Real x Orçado e funciona perfeitamente.

O que eu preciso é de uma macro que ao passar o mouse sobre as figuras do mapa (Que são as cidades), estas aumentem de tamanho para eu poder visualizar, pois como são varias figuras estas aparecem muito pequenas e não consigo saber qual figura é.

Muito obrigado.

 
Postado : 16/02/2018 7:46 am
(@osvaldomp)
Posts: 857
Prominent Member
 

O que eu preciso é de uma macro que ao passar o mouse sobre as figuras do mapa

O código abaixo roda ao pairar o cursor do mouse sobre um Rótulo (Label) do tipo ActiveX. Veja se pode servir.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "O TRIPLEX NÃO É MEU"
End Sub
 
Postado : 16/02/2018 8:48 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Como diz estar utilizando um mapa, eu sugiro em vez de utilizar o evento MouseMove, utilizar uma rotina para aumentar e diminuir a imagem qdo clicada, em um mapa você deve ter varios shapes ou imagens grudadas e com isto poderá ter resultados inesperados quando mover o mouse de um para outro, uma vez que qdo estiver em uma região a imagem aumentar e só irá diminuir quando perder o foco, mas perde-se o foco de um e já vai estar em outro, não sei se me fiz entender.
Mas para clicar na imagem de uma olhada neste modelo:

Aumentar/Diminuir Imagem ao clica

[]s

 
Postado : 16/02/2018 9:06 am
(@tutoelizeu)
Posts: 0
New Member
Topic starter
 

Obrigado Mauro, mas eu não consegui adaptar,
Inseri o arquivo pra você dar uma olhada

Funciona assim:

Na coluna "B" Real
Na coluna "C" Meta

De acordo com o % (Diferença entre o real e a meta) é que vai pintar as figuras do mapa por cidade.

Eu gostaria que ao passar o mouse por cima destas cidades e conseguimos atribuir zoom para as mesmas.

Será que dá pra fazer?

Obrigado.

 
Postado : 16/02/2018 12:12 pm
(@spanta)
Posts: 0
New Member
 

Acho que o ideal é:
ao passar o mouse abre uma tela do tipo form => nesse form tem um controle imagem que carrega uma foto do mapa da cidade e carrega o nome para exibir na frente

Para isso é melhor mudar a cidade para um controle Activex do Excel, anexei um Word com o manual passo-a-passo explicando como fazer isso

Anexei também o seu arquivo com minhas alterações, se passar o mouse em ECOPORONGA já vai ver a tela abrindo

Ela só não vai carregar imagem, isso vai precisar completar, no Word mostrei onde terá que codificar esse procedimento

 
Postado : 16/02/2018 6:35 pm
(@tutoelizeu)
Posts: 0
New Member
Topic starter
 

Muito obrigado amigo!

Deus abençoe!

 
Postado : 18/02/2018 4:29 pm