Powerpoint VBA宏另存为对话框文件筛选器

Question

我想将PPT演示文稿导出为.html文件。因此，我有VBA代码

Sub HTMLExport() 
    ActivePresentation.SaveAs "C\Users\test\pptInHtml.htm", ppSaveAsHTML, msoFalse 
End Sub 

这工作，但我需要一个“另存为对话框”，在这里用户可以选择该文件将被保存为HTML（用户只能路径中的代码选择“另存为html”，没有别的）。

这是代码为我SaveAsDialog

Sub ShowSaveAsDialog() 
Dim dlgSaveAs As FileDialog 
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs) 
With dlgSaveAs 
    If .Show = -1 Then 
    .Execute 
    End If 
End With 
End Sub 

但现在，我需要一个.html文件的文件过滤器。

Answer 1

MS Office SaveAs type FileDialog with a filter in vb表明不幸的自定义过滤器不能用于另存为对话框。

所以看起来最好的选择是使用Windows API创建对话框作为OP建议的答案。