Powerpoint VBA Macro Сохранить как диалоговое окно Фильтр файла

Я хочу экспортировать презентацию 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.


vba powerpoint savefiledialog filefilter
person user3126813    schedule 27.03.2014    source источник

Ответы (1)


arrow_upward
1
arrow_downward

MS Office SaveAs типа FileDialog с фильтром в vb указывает, что пользовательские фильтры, к сожалению, нельзя использовать для диалогового окна «Сохранить как».

Таким образом, кажется, что лучший вариант — создать диалоговое окно с помощью Windows API, как предполагает ответ OP.

person Paul B.    schedule 07.04.2014