Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Height - 10 Then
ActiveSheet.Shapes("Image2").Visible = False
Else
ActiveSheet.Shapes("Image2").Visible = True
End If
End Sub