ARAB101

وعليكم السلام هل هذا المطلوب؟ test.rar

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في وحدة نمطية : 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 بالتوفيق

العناصر يقصد بها الأدوات المضمنة في النموذج (ازرار،مربعات نص،قوائم .....الخ) ، ويبدو أن النموذج لديك مليئ بها . على العموم هو اقتراح فقط وليست بمشكلة تستلزم الحل. Option Explicit ضعها هنا :

وعليكم السلام إمسح ماهو موجود في هذا الحقل ثم حفظ :