파워 포인트 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을 사용하여 대화 상자를 만드는 것 같습니다.