‘Datei öffnen’-Dialogfeld in PowerPoint-Makros

Sie haben in c't 24/01 ein Tool namens DlgTools.ocx veröffentlicht, das Windows-Skripten den Aufruf des Windows-eigenen ‘Datei öffnen’-Dialogfelds erlaubt. Kann ich dieses Tool auch für meine PowerPoint-Makros nutzen oder lässt sich das Dialogfeld eventuell mit reinen VBA-Mitteln darstellen?

Da es sich um ein ActiveX-Control handelt, können Sie DlgTools.ocx auch aus Ihren VBA-Makros heraus nutzen. Sofern Sie jedoch bereits PowerPoint XP einsetzen, brauchen Sie das Control nicht und können stattdessen auf das neue VBA-Objekt FileDialog zurückgreifen, dessen Einsatz der Artikel in c't 3/02 (ab S. 188) ausführlich beschreibt. Als Besitzer von PowerPoint 2000 können Sie sich alternativ zu DlgTools.ocx auch den Excel-eigenen ‘Datei öffnen’-Dialog ‘ausleihen’. Wie das funktioniert, demonstriert das abgedruckte Code-Fragment. (Ralf Nebelo/se)

Dim objXL As Object
Dim vntDatei As Variant
Set objXL = CreateObject("Excel.Application")
vntDatei = objXL.GetOpenFilename(FileFilter:= "Excel-Dateien (*.xls), *.xls", _
Title:="Excel-Arbeitsmappe öffnen")
If vntDatei <> False Then
 MsgBox "Gewählter Dateiname: " & vntDatei
End If

So kann sich ein PowerPoint-Makro den Excel-eigenen ‘Datei öffnen’-Dialog borgen. (ha)