0

私は次のコードを持っていますが、ファイルの種類 (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
4

1 に答える 1

-1

完璧に見えます、ブラザー。これは、ダイアログ ボックスの写真付きのステップバイステップ ガイドで、XLS ファイルのみを示しています。あなたのコードは彼と同じように見えます (多かれ少なかれ)。

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

于 2013-06-14T15:00:08.090 に答える