Checking Application version

[StuLux]

I use the following code from Excel to check which version of Office is being used and then use the appropriate PowerPoint version. For development purposes I have now installed both Excel 2003 and Excel 2007 on my PC so the code no longer works as I only have PowerPoint 2007 i.e. the code identifies that I am using Excel 2003 and then tries to open PowerPoint 2003 and fails. Can anybody help me adapt this code so it actually checks what version of PowerPoint is installed rather than checking what version of Excel is being used?

 'Start PowerPoint
        If Application.Version = 11# Then
        PPOpen = Shell("C:\Program Files\Microsoft Office\Office11\POWERPNT.EXE", 1)
        Else
        PPOpen = Shell("C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE", 1)
        End If
        Set PPApp = CreateObject("Powerpoint.Application")

 

[Richard Schollar]

Hello Stuart

Possibly:

'Start PowerPoint
     If Len(Dir("C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE"))>0 Then
         PPOpen = Shell("C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE", 1)
     Else
        PPOpen = Shell("C:\Program Files\Microsoft Office\Office11\POWERPNT.EXE", 1)
     End If

 

[StuLux]

Thanks Rich, managed to work out a solution as follows, yours is shorter and neater.

'Check which version of PowerPoint to use
    Dim FilePath As String
    Dim TestStr As String
    'Look for existence of PowerPoint 2003
    FilePath = "C:\Program Files\Microsoft Office\Office11\POWERPNT.EXE"
    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
    'PowerPoint 2003 does not exist - use PowerPoint 2007
        PPOpen = Shell("C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE", 1)
    Else
    'PowerPoint 2003 does exist so use it
        PPOpen = Shell("C:\Program Files\Microsoft Office\Office11\POWERPNT.EXE", 1)
    End If