كود ادراج الصور من الماسح والحاسبه وحذف الصور

[mhywbkasht]

كود ادراج الصور من الماسح والحاسبه وحذف الصور

[ازهر عبد العزيز]

تفضل 

Dim fdialog As Office.FileDialog
Dim filepath As String

Set fdialog = Application.FileDialog(msoFileDialogFilePicker)

With fdialog
            .Title = "Select image"
            .AllowMultiSelect = False
            .Filters.Clear
            .Filters.Add "Image file", "*.jpg ; *.bmp ; *.png"
            
            If .Show Then
                filepath = .SelectedItems(1)
                [Imagepath] = filepath
                Else
                Exit Sub
            End If
End With

 

[mhywbkasht]

شكرا لك اخي الكريم