Excel里有Getopenfilename，PPT里没有，用什么实现类似的功能呢

yrgui

原本以为PPT里也有Application.getopenfilename，打开文件对话框，以选择文件
PPT里如何实现类似的功能呢，有类似的方法或控件吗？
期待高手回复，多谢

[ 本帖最后由 yrgui 于 2009-5-23 21:49 编辑 ]

小fisher

With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .Filters.Add "图像文件", "*.jpg;*.gif;*.bmp"
    .AllowMultiSelect = False
    If .Show Then
        MsgBox .SelectedItems(1)
    End If
End With
这和excel中是一致的

yrgui

原帖由 小fisher 于 2009-5-23 22:39 发表
With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .Filters.Add "图像文件", "*.jpg;*.gif;*.bmp"
    .AllowMultiSelect = False
    If .Show Then
        MsgBox .SelectedIt ...

非常感谢，我不太了解ppt对象模型，最近遇到一个涉及ppt的问题，只好通过Excel里调用
问题已经解决，但是用FileDialog方法会更好，多谢帮助。