Notifications
Clear all

Fazer a macro identificar o Botão que foi acionado

5 Posts
2 Usuários
0 Reactions
677 Visualizações
Fernando Fernandes
(@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!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/11/2015 2:00 pm
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/11/2015 2:31 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Mateus,

Boa tarde!

Segue minha sugestão.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/11/2015 7:48 am
Fernando Fernandes
(@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!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/11/2015 7:53 am