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

[ابو طيبه]

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

هل يمكن  اضافة صوره معينه من الدرايف D وليكن اسمها (عنوان) الى كل صفحات الملف مع جزيل الشكر والامتنان لجهودكم جميعا 

كود لإدراج صوره في كل الصفحات.xlsm

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

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

استخدم هذا الكود

Sub addpics()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Pictures.Insert ("D:\عنوان.jpg")
Next
End Sub

 

[ابو طيبه]

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