Notifications
Clear all

Fazer a macro identificar o Botão que foi acionado

5 Posts
2 Usuários
0 Reactions
663 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde a todos

Estou com um problema, preciso fazer uma planilha parecido com um organograma, com uns 50 Shapes (Retângulos) e toda vez que clicar em um deles um Formulário fica visível com as informações relacionadas a essa Shape clicada

Para ter maior flexibilidade para outros usuários criarem/excluírem Shapes, não gostaria de atribuir cada um a uma macro diferente, mas sim atribuir todas à mesma macro, para isso vou precisar fazer com que a macro identifique qual Shape foi acionada.

Em outras palavras, eu gostaria que toda a vez que eu clicasse em uma Imagem, ela atribuiria sempre à mesma macro mas carregando uma variável falando qual o nome da Imagem que cliquei.

É possível fazer isso??

Obrigado!

 
Postado : 24/11/2015 2:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

use esse comando.
ActiveSheet.Shapes(Application.Caller).Name

Sub Retângulo1_Clique()
MsgBox ActiveSheet.Shapes(Application.Caller).Name & " Essa figura foi clicada"
End Sub

Att

 
Postado : 24/11/2015 2:31 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Mateus,

Boa tarde!

Segue minha sugestão.

 
Postado : 24/11/2015 3:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado!!! ambos funcionaram muito bem!!!

 
Postado : 25/11/2015 7:48 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Com isso consegui fazer a macro do arquivo anexo!!

So adicionar um Shape, colocar conectores e atribuir a macro!

Ao clicar em um Shape ele faz um "De" e "Para"

Muito obrigado!

 
Postado : 25/11/2015 7:53 am