私は次のコードを持っていますが、ファイルの種類 (PDF のみに制限する必要があります) を選択する場合、ドロップダウン ボックスは複数のエントリが大きいため、次のようになります。
.
1 つのエントリのみのサイズになるように外観を変更するにはどうすればよいですか? 私はそれが他の場所で以前に行われたのを見たことがあると確信しています。
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