القوائم منزلقة على شكل شرائح

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

SlideOut_Contacts

SlideIn_Schedule

End Sub

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

SlideIn_Schedule

SlideIn_Reports

SlideOut_Emails

End Sub

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

SlideIn_Reports

SlideOut_Graphs

End Sub

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

SlideIn_Contacts

SlideIn_Schedule

SlideIn_Emails

SlideIn_Reports

SlideIn_Graphs

End Sub



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

SlideIn_Graphs

SlideIn_Emails

SlideOut_Reports

End Sub

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

SlideIn_Contacts

SlideIn_Emails

SlideOut_Schedule

End Sub

Dim Wdth As Long

Sub SlideOut_Contacts()

With ActiveSheet.Shapes("ContactsBtn")

For Wdth = 32 To 105

.Height = Wdth

ActiveSheet.Shapes("ContactsIcon").Left = Wdth - 32

Next Wdth

.TextFrame2.TextRange.Characters.Text = "Contacts"

End With

End Sub

Sub SlideIn_Contacts()

With ActiveSheet.Shapes("ContactsBtn")

For Wdth = 105 To 32 Step -1

.Height = Wdth

.Left = Wdth - 32

ActiveSheet.Shapes("ContactsIcon").Left = Wdth - 32

Next Wdth

ActiveSheet.Shapes("ContactsBtn").TextFrame2.TextRange.Characters.Text = ""

End With

End Sub

Sub SlideOut_Schedule()

With ActiveSheet.Shapes("ScheduleBtn")

For Wdth = 32 To 105

.Height = Wdth

ActiveSheet.Shapes("ScheduleIcon").Left = Wdth - 32

Next Wdth

.TextFrame2.TextRange.Characters.Text = "Schedule"

End With

End Sub

Sub SlideIn_Schedule()

With ActiveSheet.Shapes("ScheduleBtn")

For Wdth = 105 To 32 Step -1

.Height = Wdth

.Left = Wdth - 32

ActiveSheet.Shapes("ScheduleIcon").Left = Wdth - 32

Next Wdth

ActiveSheet.Shapes("ScheduleBtn").TextFrame2.TextRange.Characters.Text = ""

End With

End Sub



Sub SlideOut_Emails()

With ActiveSheet.Shapes("EmailsBtn")

For Wdth = 32 To 105

.Height = Wdth

ActiveSheet.Shapes("EmailsIcon").Left = Wdth - 32

Next Wdth

.TextFrame2.TextRange.Characters.Text = "Emails"

End With

End Sub

Sub SlideIn_Emails()

With ActiveSheet.Shapes("EmailsBtn")

For Wdth = 105 To 32 Step -1

.Height = Wdth

.Left = Wdth - 32

ActiveSheet.Shapes("EmailsIcon").Left = Wdth - 32

Next Wdth

ActiveSheet.Shapes("EmailsBtn").TextFrame2.TextRange.Characters.Text = ""

End With

End Sub

Sub SlideOut_Reports()

With ActiveSheet.Shapes("ReportsBtn")

For Wdth = 32 To 105

.Height = Wdth

ActiveSheet.Shapes("ReportsIcon").Left = Wdth - 32

Next Wdth

.TextFrame2.TextRange.Characters.Text = "Reports"

End With

End Sub

Sub SlideIn_Reports()

With ActiveSheet.Shapes("ReportsBtn")

For Wdth = 105 To 32 Step -1

.Height = Wdth

.Left = Wdth - 32

ActiveSheet.Shapes("ReportsIcon").Left = Wdth - 32

Next Wdth

ActiveSheet.Shapes("ReportsBtn").TextFrame2.TextRange.Characters.Text = ""

End With

End Sub

Sub SlideOut_Graphs()

With ActiveSheet.Shapes("GraphsBtn")

For Wdth = 32 To 105

.Height = Wdth

ActiveSheet.Shapes("GraphsIcon").Left = Wdth - 32

Next Wdth

.TextFrame2.TextRange.Characters.Text = "Graphs"

End With

End Sub

Sub SlideIn_Graphs()

With ActiveSheet.Shapes("GraphsBtn")

For Wdth = 105 To 32 Step -1

.Height = Wdth

.Left = Wdth - 32

ActiveSheet.Shapes("GraphsIcon").Left = Wdth - 32

Next Wdth

ActiveSheet.Shapes("GraphsBtn").TextFrame2.TextRange.Characters.Text = ""

End With

End Sub