هل يوجد كود لحفظ شيت اكسيل الى صورة ( jpg )

[وليد المصرى 1]

السلام عليكم

اريد كود لحفظ ملف اكسيل او شيت اكسيل بالمعنى الاصح الى صورة بصيغة jpg

اشكركم جميعا

[احمدزمان]

السلام عليكم و رحمة الله

Sub Export_Range_Images()

' =========================================

' Code to save selected Excel Range as Image

' =========================================

Dim oRange As Range

Dim oCht As Chart

Dim oImg As Picture

Set oRange = Range("A1:B2")

Set oCht = Charts.Add

oRange.CopyPicture xlScreen, xlPicture

oCht.Paste

oCht.Export FileName:="d:\SavedRange.jpg", Filtername:="JPG"

End Sub

هذا الكود منقول من مشاركة احد الإخوة بالمنتدى لااذكر اسمه

جزاه الله خيرا

ولكن لم يشبق لي تجربته

وهو يقوم بتحويل النطاق الى صورة

[احمد فضيله]

جزاكم الله كل خير

[احمد فضيله]

بعد اذن كل الاخوه

يمكنك الاطلاع على المرفق التالي و هو مرفق للآخ العلامه الاستاذ الكبير اخي الحبيب الاستاذ / عبد الله باقشير

و الله المستعان

التقاط صورة للتحديد وحفظها في فولدر ملف الاكسلJPG.rar

[وليد المصرى 1]

اشكرك اخى احمد ولكن هذا الكود يحفظ فقط الصورة التى داخل الملف

انا اريد حفظ الشيت الى صورة وتكون بنفس طريقة استاذنا عبدلله

اشكركم

[وليد المصرى 1]

صباح الخير

منتظر اهل الخير والخبرة

[وليد المصرى 1]

لو سمحت اذا امكن المساعدة

[وليد المصرى 1]

منتظر الرد