找回密码
 立即注册
搜索

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

2
回复
356
查看
[复制链接]

17

主题

191

帖子

43

幻币

一流武者

Rank: 3Rank: 3

积分
244
QQ
2016-4-12 12:50:17 显示全部楼层 |阅读模式
原本以为PPT里也有Application.getopenfilename,打开文件对话框,以选择文件
PPT里如何实现类似的功能呢,有类似的方法或控件吗?
期待高手回复,多谢
PPT学习论坛
回复

使用道具 举报

17

主题

210

帖子

49

幻币

一流武者

Rank: 3Rank: 3

积分
270
QQ
2016-4-12 14:18:07 显示全部楼层
With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .Filters.Add "图像文件", "*.jpg;*.gif;*.bmp"
    .AllowMultiSelect = False
    If .Show Then
        MsgBox .SelectedItems(1)
    End If
End With
这和excel中是一致的
PPT学习论坛
回复 支持 反对

使用道具 举报

14

主题

189

帖子

33

幻币

一流武者

Rank: 3Rank: 3

积分
232
QQ
2016-4-12 14:24:00 显示全部楼层
非常感谢,我不太了解ppt对象模型,最近遇到一个涉及ppt的问题,只好通过Excel里调用
问题已经解决,但是用FileDialog方法会更好,多谢帮助。
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册