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