إظهار أسم الصوره

[Ahmed.Hussein]

السلام عليكم ورحمه الله وبركاته 

 

في البدايه احب ان اشكر كل القائمين علي هذا المنتدي الاكثر من رائع واتمني من الله ان يكون في ميزان حسناتهم ...

 

اخواني الاعزاء خبراء الاكسل الرجاء من سيادكتم الافادة بإظهار اسم الصوره عند ادراجها في الاكسل حيث انني عندي صور العمال بالاسم واريد ان ادرجها في الاكسل بنفس الرقم التي تسمي فيها الصوره ....

 

ولكم جزيل الشكر وفائق الاحترام 

مثال.rar

[حمادة عمر]

الاخ الكريم

طلبك غير واضح ... ياريت لو مثال كامل

ولكن شاهد المرفق

هل تقصد هكذا

 

 

 

2013-2003.rar

[جلال محمد]

جزاك الله خيرا أخي حمادة

[حمادة عمر]

وجزاك الله خيرا

اخي الحبيب / جلال محمد

تقبل خالص تحياتي

[يوسف السيد]

أخى الكريم // حمادة عمر

بارك الله فيك

احلى واسهل وابسط من كده مفيش

[Ahmed.Hussein]

لك كل الشكر وكامل الاحترام علي تقدير بالرد يا اخى العزيز ...

 

لكنه ليس هذا ما اقصد كل المطلوب هو عندما ارفق صورة  فى الاكسل اجد اسم الصوره بها .وهذا مثال توضيحي ...

2013.rar

[Ahmed.Hussein]

من بعد إذنكم لا يوجد حل او رد على هذا الطلب 

[حمادة عمر]

السلام عليكم

الاخ الحبيب / يوسف السيد

بارك الله فيك

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الكريم / ahmed_hissen

بارك الله فيك

ولكن نطلب منك الصبر

جرب المرفق .. ان شاء الله به ما تريد اظهار اسم ومسار الصورة التي تقوم باختيارها

بالكود التالي :

Sub SAMA()
Image_path = Application.GetOpenFilename( _
        FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
        Title:="اختار الصورة")
Sheets("sheet1").Range("a1") = Image_path
If Image_path <> False Then
Sheets("sheet1").Image1.Picture = LoadPicture(Image_path)
End If
End Sub

وارجو ان يفي بطلبك

جزاك الله خيرا

 

 

صورة.rar

[Ahmed.Hussein]

شكرا لك اخي العزيز ...

 

هذا ما كنت اريد بالظبط لكن لو في امكانيه إضافة فى الكود  بإدراج صور متعددة مره واحدة بدل صورة صوره....

ولك جزيل الشكر وفائق الاحترام

[حمادة عمر]

هل تقصد اضافة الصور  الموجودة في الفولدر كاملا مع وضع اسماؤها

[حمادة عمر]

الاخ الكريم

شاهد هذا الملف  ...

به كود راائع من اعمال الاستاذ القدير / عباد ... جزاه الله خيرا

يقوم باستدعاء جميع اسماء الصور الموجودة في الفولدر الموجود به الملف في العمود A

ارجو ان يكون هذا هو طلبك او مزيد التوضيح

تقبل خالص تحياتي

 

 

 

استخراج اسماء الصور.rar

[Ahmed.Hussein]

اخى العزيز أنا بشكرا جدا على متابعتك بس الكود مش عايز يشتغل عندى بسبب انى جهازى 64 bit وكذلك نسخة الاوفيس 64 bit لو أمكن تعديلة ليتناسب مع نسخة الاوفيس ولك جزي الشكر .....

[Ahmed.Hussein]

وهذا نسخة من الخطأ سوف تجدها فى المرفقات .... 

code error.rar

[Ahmed.Hussein]

السلام عليكم .. 

 

أخونا لا يوجد اى حل للطلب الخاص بى ....

 

ولكم جزي الشكر للمساعدة 

[عبدالله باقشير]

اخى العزيز أنا بشكرا جدا على متابعتك بس الكود مش عايز يشتغل عندى بسبب انى جهازى 64 bit وكذلك نسخة الاوفيس 64 bit لو أمكن تعديلة ليتناسب مع نسخة الاوفيس ولك جزي الشكر .....

 

جرب هذا الكود

في الملف الذي في مشاركة الاخ حمادة رقم 12

Option Explicit
'//////////////////////////////////////////////////////

Sub kh_AddNamePicture()
Dim MyObj, MyObjFol, Obj
Dim iPath As String
Dim Last As Long, i As Long
'============================
On Error GoTo Err_kh_Files
'============================
iPath = ActiveWorkbook.Path & "\"
Set MyObj = CreateObject("Scripting.FileSystemObject")
Set MyObjFol = MyObj.GetFolder(iPath)
'============================
For Each Obj In MyObjFol.Files
    If Not Dir(Obj.Path, vbDirectory) = "" Then
        If ActiveWorkbook.Name = Obj.Name Then GoTo 1
        i = i + 1
        Cells(i + 1, "A").Value = Obj.Name
    End If
1
Next
'============================
Err_kh_Files:
If Err Then MsgBox "Err.Number:" & vbCr & Err.Number: Err.Clear
Set MyObj = Nothing: Set MyObjFol = Nothing
End Sub

تحياتي

[حمادة عمر]

الاستاذ القدير العلامة الخبير / عبدالله باقشير

منتهي منتهي الجمال والروعة

جزاك الله خيرا

[Ahmed.Hussein]

بحد قبل ما أجرب الكود 

 

جزاكم الله خير ...

[Ahmed.Hussein]

شكر جدا على متابعتكم.

 

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