استخدام خيار الكاميرا أثناء تسجيل ماكرو في اكسل

[هاشم محمد حساني]

السادة الاعضاء حصلت معي المشكلة التالية   لأعمل لقطة كمرا  و انسخ اللقطة في اي موضع من ورقة العمل  ....

اولا اخترت المجال 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

ما هو الحل للمشكلة و إذا لم يكن لها حل  فما البديل ..... حيث ان الهدف من هذا الماكرو  هو تطوير ماكرو آخر لأخذ لقطات متعددة لمجالات مختلفة في ورقة العمل  .