Solved: Mousemove event with shape

[slamet Harto]

Dear All,

Please advise me on how to use mousemove event with shape.
I use the following code but seem's synthax error.

any reply or sugestion would be higly appreaciate it,
Rgds, harto[VBA]Sub Macro1()
ActiveSheet.Shapes("MyShape")_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheets(1).Unprotect "1234"

End Sub[/VBA]

[mikerickson]

Shapes don't have events.

[benny]

Hi.

Give this a try.

Option Explicit
Sub Test() 'attach this macro to your Shape
    Dim btn    As Object
 
    Set btn = ActiveSheet.Shapes(Application.Caller)
    ActiveSheet.Unprotect "1234"
End Sub

[slamet Harto]

Thanks All, highly appreciate it .

Rgds, Harto