انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس

Sub ShowHideHelp()

With Sheet1

If .Range("A1").Value = "إخفاء المساعدة" Then

.Shapes("HelpGroup").Visible = msoCTrue

.Range("A1").Value = "عرض المساعدة"

Else:

.Shapes("HelpGroup").Visible = msoFalse

.Range("A1").Value = "عرض المساعدة"

End If

End With

End Sub



Sub ShowHelp()

Sheet1.Shapes("HelpGroup").Visible = msoCTrue

End Sub

Sub HideHelp()

Sheet1.Shapes("HelpGroup").Visible = msoFalse

End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

ShowHelp

End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

HideHelp

End Sub



Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

HideHelp

End Sub

Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

HideHelp

End Sub