ابوعبدالواجد قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 قمت بتغيير السطر والنتيجة نفسه رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 النتيجة الطبيعية في هذا الكود بعد تعديل سطر اسم ملف الصورة هو تصدير صورة من النطاق المحدد في الكود باسم الشيت متبوعا بتاريخ ووقت التصدير بالساعة والدقيقة والثانية ربما عرض الكود المستخدم في ملفك كاملا - وليس كما في الصورة السابقة - يساعد في الوصول للحل رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر مايو 21, 2017 الكاتب مشاركة قام بنشر مايو 21, 2017 (معدل) 12 ساعات مضت, أ / محمد صالح said: ممكن رسالة الخطأ التي تظهر قبل الدخول لشاشة الكود تساعدنا مثل هذه السلام عليكم استاذ محمد شكراً لسعت صدرك هذه صورة الخطاء تم تعديل مايو 21, 2017 بواسطه محمد الخازمي رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 جرب أن يتم تنشيط الشيت قبل إضافة الشارت بتغيير هذين السطر للعكس .Shapes.AddChart .Activate إلى .Activate .Shapes.AddChart لأن الرسالة تعني أن الكائن المحدد لا يدعم خاصية الإضافة لذا يجب تحديده أولا جرب وأخبرني بالنتيجة رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر مايو 21, 2017 الكاتب مشاركة قام بنشر مايو 21, 2017 استاذ محمد اعطاني هذا الخطاء رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر مايو 21, 2017 أفضل إجابة مشاركة قام بنشر مايو 21, 2017 معنى هذا أن shapes.addchart موجودة في إكسل 2007 وما بعده وربما يفيد هذا الإجراء من يستخدمون 2003 مع تغيير في الآلية وهي تصدير النطاق المحدد إلى مجلد اسمه folder موجود على سطخ المكتب Sub SelectionToJpg() fpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\folder\" & Format(Now, "yyyymmdd.hhnnss") & ".jpg" Selection.CopyPicture xlScreen, xlPicture With ActiveSheet Dim chtObj As ChartObject Set chtObj = .ChartObjects.Add(0, 0, Selection.Width, Selection.Height) chtObj.Name = "TempChart" .ChartObjects("TempChart").Activate ActiveChart.Paste ActiveChart.Export fpath chtObj.Delete End With MsgBox "ok" End Sub وفي الأخير أنصح كل من يستخدم أوفيس 2003 بألا يحرم نفسه من سهولة ومميزات الإصدارات الأحدث فقد صدر بعده 4 إصدارات 2007 2010 2013 2016 1 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر مايو 21, 2017 الكاتب مشاركة قام بنشر مايو 21, 2017 السلام عليكم استاذ محمد حلت المشكلة مع الكود الجديد ولكن لم يصور النطاق بل يصور الخلية النشظة فقط Range("a1:e12") رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر مايو 21, 2017 الكاتب مشاركة قام بنشر مايو 21, 2017 (معدل) شكراً استاذ محمد تم إضافة Range("A1:E16").Select لتحديد المكان والكود يعمل بشكل رائع شكراً لك اتعبتك معاي نسأل الله ان يجعلة في ميزان حسناتك وهذا الملف جاهز للاستخدام حتى يتم الاستفاد ملاحظة ستجد ملف بإسم " ملفي " انقله الي سطح المكتب حتي يتم وضع الصور به التقاط صورة.rar تم تعديل مايو 21, 2017 بواسطه محمد الخازمي رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر مايو 22, 2017 مشاركة قام بنشر مايو 22, 2017 19 ساعات مضت, أ / محمد صالح said: وربما يفيد هذا الإجراء من يستخدمون 2003 مع تغيير في الآلية وهي تصدير النطاق المحدد إلى مجلد اسمه folder موجود على سطخ المكتب 13 ساعات مضت, محمد الخازمي said: السلام عليكم استاذ محمد حلت المشكلة مع الكود الجديد ولكن لم يصور النطاق بل يصور الخلية النشظة فقط Range("a1:e12") في الكود الأول حتى يتم تغيير النطاق الذي يتم تصديره يجب تعديل الكود ولكن في التعديل الأخير تم تغيير آلية التصدير وهي أن تقوم بتحديد النطاق الذي تريد تصديره ثم تضغط على الزر بدون الدخول على الكود وتعديله بالإضافة إلى أنه تم وضع مسار سطح المكتب بغض النظر عن اسم المستخدم في الويندوز وفقنا الله وإياكم لكل خير وعلمنا ما ينفعنا ونفعنا بما علمنا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان