o başlıkları araştırdınız mı?
sorun sadece resim seçimi için dialog penceresinin açılması ise
Kaynak = GetOpenFile_CLT("C:\", "Resim Seçiniz...") kodunu silip yerine aşağıdakileri eklemeyi dener misiniz?
Kod:
'_____________________________________________Dosyaseç
Dim fDialog As Object, varFile
Set fDialog = Application.FileDialog(3) 'msoFileDialogFilePicker = 3)
With fDialog
' Allow user to make multiple selections in dialog box
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Resim Seçiniz..."
' Clear out the current filters, and add our own.
.Filters.Clear
' .Filters.Add "Access Databases", "*.MDB"'bu kısımlar dosya uzantıları için
' .Filters.Add "Access Projects", "*.ADP"
.Filters.Add "All Files", "*.*"
If .Show = True Then
'Loop through each file selected and add it to our list box.
For Each varFile In .SelectedItems
Kaynak = varFile
Next
Else
MsgBox "Seçim İptal edildi!."
End If
End With