تعديل لطباعة صورة شعار على شهاده

[علي بن علي]

السلام عليكم

 

اساتذتنا الكرام

في الملف المرفق شيت لطباعة شهائد

مع صورة لكل طالب . من الصور المرفقه

في مجلد photo بحسب رقم الطالب

ورقم الصوره

 

المطلوب اساتذتنا الكرام

التعديل على كود طباعة الصوره فقط

بحيث عند الطباعه . على جميع الشهائد

يتم وضع صوره كمثال شعار المدرسه فقط

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

ويتم طباعة هذه الصوره المتمثله كشعار للمدرسة على جميع شهائد الطلاب

 

ودمتم بخير وعافيه

 

شهادات جديد مع اضافة صور للطلبة.rar

[حسونة حسين]

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

استبدل هذا السطر

Kh_Path = ThisWorkbook.Path & "\photo\" & p
بهذا السطر
Kh_Path = ThisWorkbook.Path & "\photo\" & 1

على اعتبار ان  1  هو اسم الصورة الخاصه بالشعار

[علي بن علي]

استاذ حسونه

اذا كان بلإمكان

هل يمكن وضع الصوره في خلية محدده في من خلايا الشهاده

ومنها يتم طباعة الصورة على جميع الشهائد

بنفس الشكل والموضع للخليه المحدد فيها الصوره