Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.

nome delloggetto




  • di Raffaele_53 (utente non iscritto) data: 22/12/2014 17:00:07

    Se ho capito bene, vedi se va bene (trovata in rete)
     
    Sub Selezione()
On Error Resume Next
For i = 1 To ActiveSheet.Shapes.Count
  Selezioni = Selezioni & " " & Selection.ShapeRange(i).Name
Next i
MsgBox Selezioni
End Sub



  • di Textomb data: 22/12/2014 18:29:52

    ciao Raffaele.
    grazie per la risposta ma purtroppo non va bene.
    Cioè hai interpretato bene la mia esigenza ma non funziona. Mi restituisce un messaggio vuoto...



  • di Raffaele_53 (utente non iscritto) data: 22/12/2014 19:23:49

    Prova con questa, scritta da vf (in un modulo)
     
    Option Explicit
Public Sub prova()
  Dim controllo As String
  controllo = ActiveSheet.Shapes(Application.Caller).Name
  MsgBox "hai cliccato su: " & controllo
End Sub



  • di Textomb data: 22/12/2014 19:41:22

    esatto.
    stavolta c'hai preso.
    complimenti.
    si può semplificare...
     
    Option Explicit
Public Sub prova()
  Dim controllo As String
  controllo = Application.Caller
  MsgBox "hai cliccato su: " & controllo
End Sub
 


by Globosoft © 2018 Regole di utilizzo | Contatti | Privacy Policy