:ح: شفرة ادرج كائن

[الفيلسوف111]

بعد التحري والبحث وطرح السؤال مرات عديدة لم اجد اجابة وافية ومفيدة لشفرة صغيرة .

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

[محمد طاهر عرفه]

السلام عليكم

هل راجعت هذا الموضوع فى الأرشيف من هنـــــــــا و به صفحتان من الردود حول الموضوع

[الفيلسوف111]

اشكرك جزيل الشكر استاذ محمد طاهر ان جميع الامثلة تخزن الصورة عن طريق تخزين المسار ، وهذا معلوم بفضل الله ومن ثم فضل هذا المنتدى واعضاءه ولكني اريد ان اصل الى مربع استعراض في جمل واحدة ثم اضغط على الصورة التي اريدها فتدرج وهذه الشفرة لاتعمل كما هو مطلوب لدي وتظهر لي رسالة الخطأ

2793

On Error GoTo Officena
   ' employee_pic اسم كائن صورة الموظف هو
   Me.employee_pic.Action = acOLEInsertObjDlg
ExitProcedure:
   Exit Sub
Officena:
  Select Case Err.Number
         Case 2001   'هذا الإجراء يقوم بإلغاء العملية السابقة
              Resume ExitProcedure
         Case Else
              MsgBox "خطأ رقم " & Err.Number & ":  " & "الرجاء ابلاغ المبرمج بالمشكلة", vbOKOnly + vbInformation, "Officena"
              Resume ExitProcedure
  End Select