Wie bekomme ich in Access VBA das Verzeichnis der PowerPoint.exe?

Um in Access VBA das Verzeichnis der PowerPoint-Executable (powerpnt.exe) zu ermitteln, kannst du die Windows-Registry abfragen. Dort steht der Installationspfad von PowerPoint. Hier ein Beispiel, wie das geht:

```vba
Function GetPowerPointPath() As String
Dim objShell As Object
Dim pptPath As String
On Error GoTo ErrHandler

Set objShell = CreateObject("WScript.Shell")
' Für Office 64-Bit auf 64-Bit Windows ggf. den Registry-Pfad anpassen
pptPath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\POWERPNT.EXE\")
GetPowerPointPath = pptPath
Exit Function

ErrHandler:
GetPowerPointPath = ""
End Function
```

**Hinweise:**
- Der Registry-Pfad kann je nach Office-Version und Windows-Architektur (32/64 Bit) variieren. Bei 32-Bit-Office auf 64-Bit-Windows kann der Pfad auch unter `HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\App Paths\POWERPNT.EXE\` liegen.
- Die Funktion gibt den vollständigen Pfad inklusive `powerpnt.exe` zurück. Um nur das Verzeichnis zu erhalten, kannst du `Left(pptPath, InStrRev(pptPath, "\") - 1)` verwenden.

**Beispiel für das Verzeichnis:**
```vba
Dim fullPath As String
Dim folderPath As String

fullPath = GetPowerPointPath()
If fullPath <> "" Then
folderPath = Left(fullPath, InStrRev(fullPath, "\") - 1)
MsgBox folderPath
Else
MsgBox "PowerPoint nicht gefunden."
End If
```

Weitere Infos zur Registry findest du z.B. bei Microsoft:
https://learn.microsoft.com/de-de/windows/win32/sysinfo/registry

So kannst du das Verzeichnis von PowerPoint in Access VBA ermitteln.