طلب مساعدة

[زياد عبد الجليل]

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

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

[شوقي ربيع]

السلام عليكم

Dim ws                As Worksheet
Dim sPath             As String

متغيرين لاول لتحديد الشيت الذي سنعمل عليه

الثاني من اجل مسار الملف الخاص بنا وكوده يكون

sPath = ThisWorkbook.Path & "\Image\"

اما هذا الكود لتعبئة الكمبوبوكس ذات عمودين من شيت الداتا

With Me.ComboBox1
    .List = ws.Range("A2:B11").Value
    .ColumnCount = 2
End With

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

    On Error GoTo ErrHandler:
    Me.Image1.Picture = LoadPicture(sPath & Me.ComboBox1.Text & ".jpg")
    Exit Sub
    
ErrHandler:
    Me.Image1.Picture = LoadPicture(sPath & "AucuneImage.jpg")
    Resume Next

هذا السطر

On Error GoTo ErrHandler

معناه عندما يكون هناك خطاء ينتقل تنفيذ الكود الى ErrHandler

وفائدته هي انه عندما لا تكون هناك صورة في ملف الصور تحمل رقم الموضف الفيوجل يعطي خطاء

لذا نتخطاه بالكود السابق لاكن مع تنفيذ اجراء وهو الاجراء المتمثل في الجزء

    Me.Image1.Picture = LoadPicture(sPath & "AucuneImage.jpg")

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

هذا الكود المستعمل لفتح نافذت الملفات لنختار منها الصورة مع شرط اضهار الصور فقط ذات الامتدادات gif jpg jpeg وهي الامتدادات التي تتوافق مع الفيوجل

وهو الذي تبحث عنه

Dim sFilter As String
Dim vaFile As Variant
      sFilter = "Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp," & _
                "Old Files (*Old) ,*.old," & _
                "All Files (*.*) ,*.*"

   vaFile = Application.GetOpenFilename(FileFilter:=sFilter, _
                                        FilterIndex:=1, _
                                        Title:="ÇÎÊÑ ÕæÑÉ", _
                                        MultiSelect:=False)
                                        
   If vaFile <> False Then
      Me.Image1.Picture = LoadPicture(vaFile)
   
   End If

الاسطر

   If vaFile <> False Then
      Me.Image1.Picture = LoadPicture(vaFile)
   End If

من الكود السابق معناها هو انه عندما المستعمل يختار صورة يتم عرضها في الفورم

لحفظ الصورة المحملة على الفورم في المجلد الخاص بالصور برقم الموضف  لدينا استخدمنا الكود

SavePicture Me.Image1.Picture, sPath & Me.ComboBox1.Text & ".jpg"

اما للحذف استخدمنا

    Me.Image1.Picture = LoadPicture(sPath & "AucuneImage.jpg")

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

 

 

لاتنسى فك الضغط عن ملف الاكسل و ملف الصور ووضعهما في مكان واحد ليشتغل الكود ولا يعطي خطاء

تحياتي للجميع

FrmImageTaste.rar

[زياد عبد الجليل]

السلام عليكم 

جمععععععععععععععةةةةةةةةةةةةةةةةةةةةةة مباركة لكل زوار المنتدى

بارك الله فيك أخي ربيع الكود يعمل بشكل جيد و رائع بارك الله فيك

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

يرجى تغيير عنوان الموضوع ليعبر عنه ..

[شوقي ربيع]

السلام عليكم 

جمععععععععععععععةةةةةةةةةةةةةةةةةةةةةة مباركة لكل زوار المنتدى

بارك الله فيك أخي ربيع الكود يعمل بشكل جيد و رائع بارك الله فيك

اختر افضل اجابة ليكون الموضوع مجاب

واايد اخي ياسر في تغير عنوان الموضوع ليعبر عن مضمونه ليسهل البحث في المستقبل

[زياد عبد الجليل]

كود لجلب صورة موظف و تغييرها بصفة مستقلة دون تغيير  بيانات الموظف ..تعديل الصورة مرتبط برقم أو لقب موظف

كود جيد وممتاز للاستاذ شوق ربيع

[زياد عبد الجليل]

السلام عليكم استاذ ربيع لقد صادفتني مشكلة في تنفيذ كود صورة الموظف الذي اجبت عنه 

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

2- عندما اريد ترحيل الصورة الى خانة بورقة (شيت) اكسيل مثلا الخلية b1 تظهر في شكل أرقام مثلا هكذا:-1375399479 ماهو المشكل 

وفي الختام تقبل تحياتي الخالصة وبارك الله فيك