حراثي تواتي قام بنشر مايو 5, 2019 مشاركة قام بنشر مايو 5, 2019 كيف يمكنني تغيير مسار حفظ الصورة وذلك ب حفظ الصورة في نفس المسار ونفس المجلد الاصلي ولكن في ملف آخر اسمه photos حفظ الصورة.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 5, 2019 مشاركة قام بنشر مايو 5, 2019 السلام عليكم تم عمل المطلوب في الملف المرفق... اسم مجلد الصور يمكن تغييره في الكود (في السطر "MyPhotos_Dir="Photos) -الملون بالأحمر-... بن علية حاجي حفظ الصورة.rar رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مايو 6, 2019 الكاتب مشاركة قام بنشر مايو 6, 2019 (معدل) بارك الله فيك الاخ الفاضل فقط ان لم اكثر عليك تعديل رابط اسراد الصورة من الملف المستحدث photos وشكرا مرة أخرى Private Sub TextBox1_Change() '============================= Dim MYPATH MYPATH = ThisWorkbook.Path & "\" & TextBox1.Text & ".JPG" If Right(MYPATH, 1) <> "\" Then On Error GoTo 1 Image1.Picture = LoadPicture(MYPATH) Else 1: 'MsgBox "åÐÇ ÇáÕæÑÉ ÛíÑ ãæÌæÏÉ", vbInformation, "ÎØÃ" 'Image1.Picture = LoadPicture() Image1.Picture = LoadPicture(ThisWorkbook.Path & "\M.JPG") Exit Sub End If '========================================== End Sub تم تعديل مايو 6, 2019 بواسطه حراثي تواتي رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 6, 2019 مشاركة قام بنشر مايو 6, 2019 السلام عليكم قم باستبدال السطر التالي في الكود: MYPATH = ThisWorkbook.Path & "\" & TextBox1.Text & ".JPG" بالسطر التالي: MYPATH = ThisWorkbook.Path & "\Photos\" & TextBox1.Text & ".JPG" والله أعلم رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مايو 7, 2019 الكاتب مشاركة قام بنشر مايو 7, 2019 بارك الله فيك اخ بن علية حاجي وجزاك عنا خير الجزاء شكرا جزيلا على اهتمامك بمساعدتنا فقط استاذي لطلب مساعدة على هذا الرابط اذ تكرمت وساعدتنا طبعا اخي في حدود الاستطاعة https://www.officena.net/ib/topic/90950-مساعدة-في-استراد-الصورة-الى-الخلية/ حفظ الصورة.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.