user_ojixk 发表于 2016-4-12 12:50:17

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

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

411129362 发表于 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中是一致的

dameiys 发表于 2016-4-12 14:24:00

非常感谢,我不太了解ppt对象模型,最近遇到一个涉及ppt的问题,只好通过Excel里调用
问题已经解决,但是用FileDialog方法会更好,多谢帮助。
页: [1]
查看完整版本: Excel里有Getopenfilename,PPT里没有,用什么实现类似的功能呢