في هذا الرابط كود للعلامه عبد الله باقشير
جزاه الله عنا كل خير
http://www.officena.net/ib/index.php?showtopic=31162&hl=&fromsearch=1
ولكن مع حماية الصفحة الموجود بها الشهادة
تعطي هذه الرساله
Set MyPh = Sheets(ShName).Shapes.AddShape(msoShapeRectangle, col.Left, col.Top + 2, 50, 70)
ارجو الحل لان الكود عاجبني ورائع
جزاكم الله كل خير