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.
Immagini e MouseDown di Luca73 data: 17/09/2014 09:30:08
Ciao a tutti
ho il seguente problema.
In un foglio ho molte immagini a cui devo associare delle macro evento MouseDown.
all'interno di ciascuna di queste macro devo richiamara altre shapes a cui ho dato nome tale che gli ultimi 5 caratteri siano gli stessi dell'immagine a cui associo l'evento MouseDown.
Volevo sapere se all'interno della macro legata all'evento MouseDown o altro evento è possibile farsi restituire dal codice qual'e il nome dell'immagine che ha scatenato l'evento.
Inoltre allinterno della macro devo riferirmi all'immagine stessa e volevo evitare di definire all'interno della stessa macro qual'è l'immagine in questione.
Per esempio mousedown mi restituisce direttamente solo le coordinate, il bottone premuto ed eventualmente il tasto CTRL/SHIFT+ALT premuto.
Private Sub object_MouseDown( ByVal Button As fmButton, ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single).
Ringrazio anticipatamente per ogni aiuto
Ciao
Luca
di lepat (utente non iscritto) data: 17/09/2014 17:14:55
hai forse sbagliato allegato ?
di Luca73 data: 17/09/2014 17:22:21
Non è mio l'allegato, non ho allegato nulla, avevo solo descritto.
Ciao
Luca
di Zer0Kelvin data: 17/09/2014 18:34:17
Ciao.
Penso che un modo semplice sia definire all'interno di ogni routine una costante stringa uguale al nome dell'immagine:
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Const ImgName = "Image1"
MsgBox ImgName
End Sub