السادة الاعضاء حصلت معي المشكلة التالية لأعمل لقطة كمرا و انسخ اللقطة في اي موضع من ورقة العمل ....
اولا اخترت المجال a1:b2 ثم شغلت تسجيل ماكرو ثم كبست زر خيار الكمرا و نسخت المجال الى نفس ورقة العمل ثم عدت الى نفس المجال و اخترته و انهيت التسجيل .يعدها حاولت تشغيل الماكرو فأعطاني رسالة خطأ run - time error 449 و راجعت محرر الاكواد فأشار بلون أصفر لسطر الخطأ كما هو موضح
Sub CAMERA2()
'
' CAMERA2 ماكرو
Selection.Copy
ActiveSheet.Shapes.AddShape(, 407.25, 62.25, 72#, 72#).Select
ActiveSheet.Shapes.Range(Array("Picture 3")).Select
Application.CutCopyMode = False
End Sub
و السطر الملون هو :
ActiveSheet.Shapes.AddShape(, 407.25, 62.25, 72#, 72#).Select
ما هو الحل للمشكلة و إذا لم يكن لها حل فما البديل ..... حيث ان الهدف من هذا الماكرو هو تطوير ماكرو آخر لأخذ لقطات متعددة لمجالات مختلفة في ورقة العمل .