كييه تصدير صوره الى ملف اكسل بواسطه الفيجوال بيسك 6

المشكلة اعتقد انها تنحل فور إنسدال الـ Enum التي تدعى MsoTriState عند كل مرة تشغيل

وعلى كل بإمكاننا الإستغناء عن ثوابت هذه الـ Enum بالتعويض عنها بقيمها .. اي مثلا إذهب الى هذا السطر

oWS.Shapes.AddPicture App.Path & "\Egypt.gif", msoFalse, msoCTrue, 0, 0, 300, 200

وقم بتغيير الـ msoFalse إلى 0 .. وأيضا قم بتغيير الـ msoCTrue إلى 1 .. ليصبح السطر كما هو ادناه

oWS.Shapes.AddPicture App.Path & "\Egypt.gif", 0, 1, 0, 0, 300, 200

وبالتوفيق إن شاء الله