I'm not really sure where to post this because it's more of a powerpoint question than excel... but hopefully someone can help!
I have this code for a web browser style back button in excel:
Option Explicit
Dim History As New Collection
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim wksht As Worksheet
If History.Count > 0 Then
If Sh.Name = History(History.Count).Name Then Exit Sub
End If
Set wksht = Sh
History.Add wksht
If History.Count > 10 Then History.Remove 1
End Sub
Sub Go_Back_In_History()
If History.Count = 0 Then
MsgBox "No more 'Back' steps available"
Exit Sub
End If
If History.Count = 1 And History(1).CodeName = ActiveSheet.CodeName Then
MsgBox "No more 'Back' steps available"
Exit Sub
End If
If History(History.Count).CodeName = ActiveSheet.CodeName Then History.Remove History.Count
Application.EnableEvents = False
On Error Resume Next
History(History.Count).Activate
On Error GoTo 0
Application.EnableEvents = True
History.Remove History.Count
End Sub
Can anyone help me convert this to "powerpoint" language so that i can have a button that will go back to previous slides?
Thanks for your help!!
I have this code for a web browser style back button in excel:
Option Explicit
Dim History As New Collection
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim wksht As Worksheet
If History.Count > 0 Then
If Sh.Name = History(History.Count).Name Then Exit Sub
End If
Set wksht = Sh
History.Add wksht
If History.Count > 10 Then History.Remove 1
End Sub
Sub Go_Back_In_History()
If History.Count = 0 Then
MsgBox "No more 'Back' steps available"
Exit Sub
End If
If History.Count = 1 And History(1).CodeName = ActiveSheet.CodeName Then
MsgBox "No more 'Back' steps available"
Exit Sub
End If
If History(History.Count).CodeName = ActiveSheet.CodeName Then History.Remove History.Count
Application.EnableEvents = False
On Error Resume Next
History(History.Count).Activate
On Error GoTo 0
Application.EnableEvents = True
History.Remove History.Count
End Sub
Can anyone help me convert this to "powerpoint" language so that i can have a button that will go back to previous slides?
Thanks for your help!!