التعديل في مسار حفظ الصورة

[حراثي تواتي]

كيف يمكنني تغيير مسار حفظ الصورة وذلك ب

حفظ الصورة في نفس المسار ونفس المجلد الاصلي ولكن في ملف آخر اسمه  photos

حفظ الصورة.rar

[بن علية حاجي]

السلام عليكم

تم عمل المطلوب في الملف المرفق... اسم مجلد الصور يمكن تغييره في الكود (في السطر  "MyPhotos_Dir="Photos) -الملون بالأحمر-...

بن علية حاجي

حفظ الصورة.rar

[حراثي تواتي]

بارك الله فيك الاخ الفاضل

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

[بن علية حاجي]

السلام عليكم

قم باستبدال السطر التالي في الكود:

MYPATH = ThisWorkbook.Path & "\" & TextBox1.Text & ".JPG"

بالسطر التالي:

MYPATH = ThisWorkbook.Path & "\Photos\" & TextBox1.Text & ".JPG"

والله أعلم

 

[حراثي تواتي]

بارك الله فيك اخ بن علية حاجي وجزاك عنا خير الجزاء شكرا جزيلا على اهتمامك بمساعدتنا

فقط استاذي لطلب مساعدة على هذا الرابط اذ تكرمت وساعدتنا طبعا اخي في حدود الاستطاعة

https://www.officena.net/ib/topic/90950-مساعدة-في-استراد-الصورة-الى-الخلية/

حفظ الصورة.rar