Recuperar o nome do Shape Clicado [RESOLVIDO]

[Fabio Trindade]

Boa tarde, Srs.

Gostaria de saber como faço para recuperar o nome do shape que estou clicando, consegui fazer um loop para buscar os nomes de todos os shape do arquivo mas não me ajudou muito.

Gostaria da ajuda dos senhores.

enviar.rar

(13.95 KiB) Baixado 260 vezes

[Reinaldo]

Experimente

Código: Selecionar todos

Sub TesteShapes()
Dim NomeObjeto As String
Dim escrito As String
'
'Identifica qual foi o objeto chamado/clicado (Caller)
NomeObjeto = Application.Caller
'identifica o texto que está escrito no botão ou desenho
escrito = ActiveSheet.DrawingObjects(NomeObjeto).Text
'De acordo com o que está escrito no botão ou desenho chamado,
MsgBox escrito
End Sub

[Fabio Trindade]

Experimente

Código: Selecionar todos

Sub TesteShapes()
Dim NomeObjeto As String
Dim escrito As String
'
'Identifica qual foi o objeto chamado/clicado (Caller)
NomeObjeto = Application.Caller
'identifica o texto que está escrito no botão ou desenho
escrito = ActiveSheet.DrawingObjects(NomeObjeto).Text
'De acordo com o que está escrito no botão ou desenho chamado,
MsgBox escrito
End Sub

Bom dia, Rmarco.

Obrigado pela ajuda, vai me ajudar muito! Seu código foi mais além do que eu precisava.

Aproveitando, como seria para eu recuperar o nome do objeto e não o texto que esta dentro do objeto.

[Reinaldo]

Seria isto?

Código: Selecionar todos

Sub TesteShapes()
Dim NomeObjeto As String
Dim escrito As String
'
'Identifica qual foi o objeto chamado/clicado (Caller)
NomeObjeto = Application.Caller
'identifica o texto que está escrito no botão ou desenho
escrito = "o nome do objeto é: " & ActiveSheet.DrawingObjects(NomeObjeto).Name
escrito = escrito & Chr(10)
escrito = escrito & " é seu Texto é: " & ActiveSheet.DrawingObjects(NomeObjeto).Text
'De acordo com o que está escrito no botão ou desenho chamado,
MsgBox escrito
End Sub

[Fabio Trindade]

Seria isto?

Código: Selecionar todos

Sub TesteShapes()
Dim NomeObjeto As String
Dim escrito As String
'
'Identifica qual foi o objeto chamado/clicado (Caller)
NomeObjeto = Application.Caller
'identifica o texto que está escrito no botão ou desenho
escrito = "o nome do objeto é: " & ActiveSheet.DrawingObjects(NomeObjeto).Name
escrito = escrito & Chr(10)
escrito = escrito & " é seu Texto é: " & ActiveSheet.DrawingObjects(NomeObjeto).Text
'De acordo com o que está escrito no botão ou desenho chamado,
MsgBox escrito
End Sub

Obrigado, Rmarco.

Era isso mesmo, agradeço pela sua prontidão em ajudar...