طلب مساعدة في كود يقوم بحفظ اسم العامل مع صورة يوزر فورم1

[محمد عبدالسلام]

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

 

Private Sub CommandButton2_Click()
image_path = Application.GetOpenFilename(FileFilter:="Picture Files (Fichiers image),*.gif;*.jpg;*.jpeg;*.bmp", Title:="اختار الصورة")
If image_path <> False Then
Me.Image1.Picture = LoadPicture(image_path)
Me.Image1.Visible = True
End If
End Sub

بيانات وصور الموظفين.zip

[عبدالفتاح في بي اكسيل]

تفضل 

بيانات وصور الموظفين.rar

[أحمد يوسف]

  محمد عبدالسلام

أين انت من  هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙