Z
Zbig
I'm working with XP Profesional, PowerPoint 2003
I'm new to PowerPoint/VB programming. Last 52 hours I've spent
on finding why my macros are working in *.ptt, but not in *.pps?????
As "*.ptt" every open MsgBox display correct information, but
As "*.pps" macro anotherPPS(FullPath As String) generates Error: ….The
PowerPoint Frame window does not exist
Please HELP!!!!! - Zbig
Dim BatonF As Integer
Dim pShow As Presentation
……………………………
Sub BatonFis3()
Dim Slid_NR As Long
If BatonF = 3 Then
Slid_NR = SlideShowWindows(1).View.Slide.SlideIndex
' MsgBox (Slid_NR)
If Slid_NR = 5 Then
Call anotherPPS ("c:\Show1.pps")
ElseIf Slid_NR = 9 Then
Call anotherPPS ("c:\Show2.pps")
End If
End If
End Sub
………………………….
Sub anotherPPS(FullPath As String)
On Error GoTo ErrHandle
' MsgBox (SlideShowWindows(1).Presentation.Name)
' MsgBox (FullPath)
Set pShow = Presentations.Open(FullPath, WithWindow:=msoTrue)
' MsgBox (pShow.Name)
Exit Sub
ErrHandle:
If Err.Number <> 0 Then
MsgBox Err.Number & " " & Err.Description, _
vbCritical + vbOKOnly, "Error"
End If
End Sub
I'm new to PowerPoint/VB programming. Last 52 hours I've spent
on finding why my macros are working in *.ptt, but not in *.pps?????
As "*.ptt" every open MsgBox display correct information, but
As "*.pps" macro anotherPPS(FullPath As String) generates Error: ….The
PowerPoint Frame window does not exist
Please HELP!!!!! - Zbig
Dim BatonF As Integer
Dim pShow As Presentation
……………………………
Sub BatonFis3()
Dim Slid_NR As Long
If BatonF = 3 Then
Slid_NR = SlideShowWindows(1).View.Slide.SlideIndex
' MsgBox (Slid_NR)
If Slid_NR = 5 Then
Call anotherPPS ("c:\Show1.pps")
ElseIf Slid_NR = 9 Then
Call anotherPPS ("c:\Show2.pps")
End If
End If
End Sub
………………………….
Sub anotherPPS(FullPath As String)
On Error GoTo ErrHandle
' MsgBox (SlideShowWindows(1).Presentation.Name)
' MsgBox (FullPath)
Set pShow = Presentations.Open(FullPath, WithWindow:=msoTrue)
' MsgBox (pShow.Name)
Exit Sub
ErrHandle:
If Err.Number <> 0 Then
MsgBox Err.Number & " " & Err.Description, _
vbCritical + vbOKOnly, "Error"
End If
End Sub