وعليكم السلام ورحمة الله وبركاته
ضع هذا الكود في وحدة نمطية :
Public Sub GetImaage()
Dim filelocation As String
Dim diagfile As FileDialog
Set diagfile = Application.FileDialog(msoFileDialogSaveAs)
diagfile.title = "حفظ ملف الصورة كـ ...."
diagfile.InitialFileName = "*.bmp"
If diagfile.Show Then
filelocation = diagfile.SelectedItems(1)
Dim scandiag As Object
Dim image As Object
Set scandiag = CreateObject("wia.commondialog")
Set image = CreateObject("wia.imagefile")
Set image = scandiag.showAcquireimage()
image.savefile filelocation
End If
End Sub
وهذا الكود في الزر داخل النموذج :
Call GetImaage
بالتوفيق