كيف يتم تحويل نطاق معين الى صورة محفوظة في مجلد معين

[ابوعبدالواجد]

قمت بتغيير السطر

والنتيجة نفسه

 

 

[أ / محمد صالح]

النتيجة الطبيعية في هذا الكود بعد تعديل سطر اسم ملف الصورة 

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

ربما عرض الكود المستخدم في ملفك كاملا - وليس كما في الصورة السابقة - يساعد في الوصول للحل

[محمد الورفلي1]

12 ساعات مضت, أ / محمد صالح said:

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

مثل هذه

 

 

السلام عليكم

استاذ محمد  شكراً لسعت صدرك

 

هذه صورة الخطاء

 

 

 

تم تعديل مايو 21, 2017 بواسطه محمد الخازمي

[أ / محمد صالح]

جرب أن يتم تنشيط الشيت قبل إضافة الشارت

بتغيير هذين السطر للعكس

    .Shapes.AddChart
	.Activate

إلى

    .Activate
    .Shapes.AddChart

لأن الرسالة تعني أن الكائن المحدد لا يدعم خاصية الإضافة

لذا يجب تحديده أولا

جرب وأخبرني بالنتيجة

[محمد الورفلي1]

استاذ محمد اعطاني هذا الخطاء

[أ / محمد صالح]

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

السلام عليكم  استاذ محمد

حلت المشكلة مع الكود الجديد ولكن لم يصور النطاق بل يصور الخلية النشظة فقط

Range("a1:e12")

 

[محمد الورفلي1]

شكراً استاذ محمد

 

تم إضافة

    Range("A1:E16").Select

لتحديد المكان والكود يعمل بشكل رائع شكراً لك اتعبتك معاي

نسأل الله ان يجعلة في ميزان حسناتك

 

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

التقاط صورة.rar

تم تعديل مايو 21, 2017 بواسطه محمد الخازمي

[أ / محمد صالح]

19 ساعات مضت, أ / محمد صالح said:

وربما يفيد هذا الإجراء من يستخدمون 2003

مع تغيير في الآلية

وهي تصدير النطاق المحدد

إلى مجلد اسمه folder موجود على سطخ المكتب

 

 

13 ساعات مضت, محمد الخازمي said:

السلام عليكم  استاذ محمد

حلت المشكلة مع الكود الجديد ولكن لم يصور النطاق بل يصور الخلية النشظة فقط

Range("a1:e12")

 

في الكود الأول حتى يتم تغيير النطاق الذي يتم تصديره يجب تعديل الكود

ولكن في التعديل الأخير تم تغيير آلية التصدير

وهي أن تقوم بتحديد النطاق الذي تريد تصديره ثم تضغط على الزر بدون الدخول على الكود وتعديله

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

وفقنا الله وإياكم لكل خير

وعلمنا ما ينفعنا ونفعنا بما علمنا