اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

2019-05-05_172036.jpg

حفظ الصورة.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

 

 

2019-05-06_181335.jpg

تم تعديل بواسطه حراثي تواتي
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

والله أعلم

 

رابط هذا التعليق
شارك

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

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

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

2002-01-01_020714.jpg

حفظ الصورة.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information