اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

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

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

مثل هذه

images.png.21684b1068483e93f2af4d7a7208264d.png

 

 

السلام عليكم

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

 

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

 

 

 

22.png

22.png

تم تعديل بواسطه محمد الخازمي
رابط هذا التعليق
شارك

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

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

    .Shapes.AddChart
	.Activate

إلى

    .Activate
    .Shapes.AddChart

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

  • Like 1
رابط هذا التعليق
شارك

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

 

تم إضافة

    Range("A1:E16").Select

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

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

 

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

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

تم تعديل بواسطه محمد الخازمي
رابط هذا التعليق
شارك

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

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

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

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

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

 

 

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

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

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

Range("a1:e12")

 

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information