كيف يمكن فتح صور بأمتداد jpg - عنوان معدل

[محمد فاروق محمود]

Sub openFile()Sub openFile()
("MyArray = Array("xlsm", "xlsx", "xls"On Error Resume Next
For r = 0 To 2
(MyPath = "D:\" & [b3] & "\" & [C3] & "." & MyArray(r)
If Dir(MyPath) <> "" Then
 Workbooks.Open Filename:=MyPath
 Exit Sub
End If
Next r
MsgBox ("الملف غير موجود")
End Sub

كيف يمكن لهذا الكود من فتح صور بأمتداد jpg وشكراً

تم تعديل فبراير 20, 2015 بواسطه أبـوخليل
لضبط عرض الكود

[ياسر خليل أبو البراء]

ارفق ملف أخي الكريم

والكود يوضع بين أقواس الكود ليظهر بشكل منضبط

<>

هكذا يكون شكل أقواس الكود أثناء المشاركة برد

[محمد فاروق محمود]

[attachment=89187:فتح ملف الاكسل من خلال زر محدد ومنع فتحه من المسار مباشرة.rar]شكراً اخى ارجو مساعدتى فى استدعاء الصور jpg بدلاً من ملفات اكسيل 

فتح ملف الاكسل من خلال زر محدد ومنع فتحه من المسار مباشرة.rar

[ibn_egypt]

أخى الفاضل

 

تفضل الملف المرفق لربما به طلبك .. تأكد من وجود المجلد SSS في القرص المحلى D وبه الصور ..

 

تحياتي  

فتح ملف الاكسل من خلال زر محدد ومنع فتحه من المسار مباشرة.rar

[محمد فاروق محمود]

شكراً اخى فى ميزان حسناتك ولى طلب ان كان فى الامكان هو اننى بعمل اسكانر للصور واوزعها على فولدرات فهل ممكن من خلال الاكسيل فتح الفلاشة واختيار الصورة وكذلك اختيار فولدرالمطلوب الحفظ فية وبذلك تتنقل الصورة من الفلاشة الى الفولدر المختار مباشرولك جزيل الشكر

[KHMB]

السلام عليكم ورحمة الله

الاخ محمد فاروق

هذا حسب فهمي انها عن طريق إعدادات وخصائص السكانر تستطيع تحديد الملف والمجلد اللي تحفظ فيها الصور بعد المسح

تم تعديل فبراير 19, 2015 بواسطه KHMB

[محمد فاروق محمود]

اخى الكريم الاسكنر اللى بنفذة على ماكينة تصوير وبنقل الصور من خلال فلاشة وشكراً

[ابو نبأ]

عمل ممتاز