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

[خالد ابوعوف]

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

رجائي اعزكم الله

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

مع الاشارة بان الصور بعدة صيغ منها BMP ومنها JPG  و PNG

 

صورة - على اساس الاسم.rar

تم تعديل أبريل 15, 2019 بواسطه خالد ابوعوف

[بن علية حاجي]

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

جرب الفكرة التي وضعتها في الملف... تم إضافة شيت جديد نضع فيه الأسماء في العمود A وصورة كل اسم في العمود B (صورة بحجم الخلية تقريبا 2.3 سم × 3.3 سم) وباستعمال المعادلات والتسميات تم عمل المطلوب...

بن علية حاجي

جلب الصورة على اساس الأسم.xlsx

[خالد ابوعوف]

السلام عليكم - مرحبا بالأخ والاستاذ والخبير بن علية حاجي

تسلم 

ولكن في الشيت الجديد اضع الاسماء والصورة عن طريق ادرج صورة - تمام

ولكن الصور موجودة في الفولدر 

ممكن جلب الصور من الفولدر مباشرة الى الشهادة عند كتابة الاسم - حتى تصبح مرحلة واحدة 

جزاك الله - وتسلم على الفكرة - مشكور

[ابراهيم الحداد]

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

استخدم هذا الكود و قم بتغيير اسم ملف الصور الى Pics

و اجعل ملف الاكسل خارج ملف الصور و ليس داخله

Sub AddPics()
Dim ws As Worksheet, C As Range
Dim EmpName As String, T As String, Dpath As String
Dim pic As Object
Application.ScreenUpdating = False
Set ws = Sheets("ورقة1")
For Each pic In ws.Pictures
pic.Delete
Next pic
On Error Resume Next
Set C = ws.Range("B2:B5")
EmpName = ws.Range("A5").Value
Dpath = ActiveWorkbook.Path & "\"
myDir = Dpath & "Pics" & "\"
T = ".jpg"
On Error Resume Next
ws.Shapes.AddPicture Filename:=myDir & EmpName & T, _
linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=C.Left, _
Top:=C.Top, Width:=C.Width, Height:=C.Height
Application.ScreenUpdating = True
End Sub

 

[خالد ابوعوف]

السلام عليكم - حياكم الله

عملت استاذي المطلوب وتم العملية بنجاح - جزيت خيرا

مشكور

 

تم تعديل أبريل 16, 2019 بواسطه خالد ابوعوف

[احمد بدره]

بارك الله فيك أستاذنا الجليل / إبراهيم الحداد  وجعله مي ميزان حساناتك

وهناك  سؤالين حتى يكتمل الموضوع

السؤال الأول كيف نضيف امتدادات أخرى لنوع الصورة ؟

والسؤال الثاني كيف يمكن اسخدامه في أكثر من نطاق ( شهادات الطلاب ) مثلاً ؟

 

[ابراهيم الحداد]

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

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

و لكن سأحاول ان اجرب هذا الامر قريبا ان اشاء الله 

اما بالنسبة الة السوال الثانى حسب فهمى له سيكون معيار البحث هو اسم الطالب

و سيتحدد موضع ادراج الصورة مرتبط بالخلية الموجود بها الاسم

و اعتذر ان لم تكن الاجابة مقنعة

هذا والله ولى التوفيق