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

yrgui · 发表于 2009-5-23 21:48

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

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

小fisher · 发表于 2009-5-23 22:39

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 · 发表于 2009-5-27 18:49

原帖由 小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方法会更好，多谢帮助。

		自动登录	找回密码
密码			免费注册

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