如何在Application.FileDialog（）中限制文件类型下拉列表的大小？

Question

我有以下代码，但在选择文件类型（应该仅限于PDF）时，下拉框是多个条目大，所以看起来像这样：

如何改变外观，使其仅为一个条目的大小？我确信我已经在其他地方见过它了。

Private Sub Command2_Click()

 Dim f    As Object

 Dim g

 Dim vrtSelectedItem As Variant

 Set f = Application.FileDialog(3)
 With f
 .Filters.Clear
 .Title = "Select Drawing"
 .Filters.Add "PDF Documents", "*.pdf"
 .FilterIndex = 1
 .AllowMultiSelect = False
 End With

If f.Show = 0 Then

Exit Sub

Else

from = f.SelectedItems(1)


Me.AcroPDF4.LoadFile "from"

End If

End Sub

Answer 1

看起来很完美，brotha。这是一个带有对话框图片的分步指南，它只显示XLS文件。您的代码与他的代码（或多或少）相同。

http://www.wiseowl.co.uk/blog/s209/type-filedialog.htm