أ / محمد صالح

موفق إن شاء الله هدية رائعة وتصميم أروع

في الكود الأول حتى يتم تغيير النطاق الذي يتم تصديره يجب تعديل الكود ولكن في التعديل الأخير تم تغيير آلية التصدير وهي أن تقوم بتحديد النطاق الذي تريد تصديره ثم تضغط على الزر بدون الدخول على الكود وتعديله بالإضافة إلى أنه تم وضع مسار سطح المكتب بغض النظر عن اسم المستخدم في الويندوز وفقنا الله وإياكم لكل خير وعلمنا ما ينفعنا ونفعنا بما علمنا

معنى هذا أن 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

جرب أن يتم تنشيط الشيت قبل إضافة الشارت بتغيير هذين السطر للعكس .Shapes.AddChart .Activate إلى .Activate .Shapes.AddChart لأن الرسالة تعني أن الكائن المحدد لا يدعم خاصية الإضافة لذا يجب تحديده أولا جرب وأخبرني بالنتيجة

وطبعا لإذن الإضافة فقط يلزمك تغيير هذا السطر إلى أصغر من صفر If Cells(i + 9, 10).Value < 0 Then كل عام وانتم جميعا بخير وسعادة ورضا

النتيجة الطبيعية في هذا الكود بعد تعديل سطر اسم ملف الصورة هو تصدير صورة من النطاق المحدد في الكود باسم الشيت متبوعا بتاريخ ووقت التصدير بالساعة والدقيقة والثانية ربما عرض الكود المستخدم في ملفك كاملا - وليس كما في الصورة السابقة - يساعد في الوصول للحل

ليس لدي نسخة من اوفيس ٢٠٠٣ مثبتة على جهازي والبرنامج يعمل بكفاءة عالية على أوفيس ٢٠١٦ وبعد تجربة الأستاذ بن علية للبرنامج على أوفيس ٢٠٠٣ يمكننا القول بإصلاح repair او إعادة تثبيت أوفيس ٢٠٠٣ ربما يحل المشكلة

ربما يتضح المطلوب أكثر إذا أرفقت نموذجا لملفين وورد وملف الإكسل مع توضيح المطلوب بمنتهى التفاصيل مع وجود مثال للنتيجة المطلوبة تم تنفيذه يدويا

لم أنتبه لطر مكتوب في المنشور الأول وهو يعني البرنامج في البداية معمول على أوفيس 2003 فكيف يعطي خطأ عند تشغيله في 2003 الطبيعي يعطي خطأ عندما يتم التصميم على 2007 ويتم التشغيل على 2003 رجاء توضيح المشكلة بمنتهى التفصيل طالما أنه لم تصل طريقة أستاذنا سليم للمطلوب أو إرفاق الملف

طالما أنه يتم التصدير فوق السابق يبدو أنك لم تقم بتغيير سطر اسم الملف للسطر المذكور في المشاركة السابقة بهذا الخصوص حيث أن الاسم يختلف كل ثانية ولا أعتقد أنك تقوم بالتصدير مرتين في الثانية!!

ياريت تصور نص الرسالة قبل الدخول لشاشة الفيجوال بيزك مثل هذه

ممكن رسالة الخطأ التي تظهر قبل الدخول لشاشة الكود تساعدنا مثل هذه

يفضل ارفاق الملف او مثال منه للعمل عليه

بالتوفيق إن شاء الله لهذا الغرض بالذات يحتوي الكود على اسم ملف الصورة في متغير fname وأفضل حل برمجي يقوم به المحترفون لهذا الغرض هو تسمية الملف باسم الشيت ثم تاريخ ووقت التصدير بالساعة والدقيقة والثانية فيجب تغيير سطر اسم الملف fname = ActiveSheet.Name & "." & Format(Now, "yyyymmdd.hhnnss") جرب وأجبرني بالنتيجة

لم اقم بتحميل الملف إلا الآن وعمل بصورة جيدة ولا يوجد أي خطأ لأن الكود متوافق مع 2003 وما بعدها

لا يوجد أي مشكلة عندي بعد حفظ الملف بتنسيق ٩٧ - ٢٠٠٣

يمكنك وضع هذا الكود في حدث عند التغيير في الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then lr = Range("g" & Rows().Count).End(xlUp).Row For n = 3 To lr If Range("g" & n).Value = [a1] Then Range("g" & n).Select Exit Sub End If Next End If End Sub

شكرا لمروركم الكريم أحبابي في الله كل عام وانتم بخير وسعادة وراحة بال رمضان مبارك

يمكنك تسجيل ماكرو لتسيق الخلية المطلوبة بالتنسيق المطلوب وفي كل مرة يتم اللصق تقوم باستدعاء الماكرو

المطلوب غير واضح كيف يتم الربط؟ كيف يتم النسخ؟

ينقص شرطة خلفية قبل اسم الملف objChart.Export ("C:\Users\4\Desktop\saes\" & saes & ".jpg")

يوجد في نهاية المسار اسم الملف والامتداد & Fname & ".Jpg"

أكيد ممكن فقط يلزمك تعديل السطر الخاص بمسار التصدير الذي به Thisworkbook.path وتعني مسار المصنف الحالي غيرها لأي مسار ثابت تريده

والأروع منه كلماتك الرقيقة كل عام وانتم بخير وسعادة ورضا

كان مجرد اقتراح ولكن بعد التجربة لم يفلح وتم التوصل لهذا الكود تفضل export range to jpg.rar