[حل شده] مشكل انتخاب محدده انتخابی برای ذخیره در قالب تصویر

[ظهور 313]

سلام و عرض ادب خدمت اساتید محترم

برای ذخیره محدوده انتخابی در قالب تصویر از فایل خیلی جالب یكی از دوستان در این لینك استفاده كردم https://forum.exceliran.com/showthre...B9%DA%A9%D8%B3
این آموزش دو تا مشكل داره
1- محدوده رو باید به صورت دستی انتخاب كنیم. من سعی كردم با انتخاب محدوده در VBA درستش كنم، اما خودش محدوده رو تغییر میده. نمیدونم شاید كار من ایراد داره. ممنون میشم راهنمایی بفرمایید (محدوده من یك جدول و مغادیرش مدام تغییر میكنه)
برای انتخاب محدوده متغیر، اینجوری عمل میكنم
Range("A1:Y3").Select
Range(Selection, Selection.End(xlDown)).Select

2- هر كاری كردم نتونستم برای نامگذاری فایل خروجی، از مقادیر موجود در سلولها استفاده كنم. ممنون میشم اگر اساتید راهنمایی بفرمایند

[Amir Ghasemiyan]

سلام دوست عزیز
این کدی که شما نوشتید رو باید بعد از این خط کد قرار بدید:

On Error Resume Next

برای تغییر نام فایل خروجی هم این خط کد رو اصلاح کنید:

PicFileName = Mid(ActiveWorkbook.FullName, 1, InStr(1, ActiveWorkbook.FullName, ".") - 1)
  PicFileName = PicFileName & "(" & ChRngName & "." & SelAddress & ").jpg"

دقت کنید که نام فایل باید بصورت یک آدرس کامل باشه نه فقط یک اسم ساده. مثلا به این صورت:

D:\exceliran\picture\exported-picture.jpg

[ظهور 313]

جناب قاسمیان
كد رو بعد از اون خط هم قرار دادم اما باز هم جواب نمیده
یعنی ابتدا همه رو انتخاب میكنه اما باز به همون محدوه خط اول از اون دو خط برمیگرده

[Amir Ghasemiyan]

جناب قاسمیان
كد رو بعد از اون خط هم قرار دادم اما باز هم جواب نمیده
یعنی ابتدا همه رو انتخاب میكنه اما باز به همون محدوه خط اول از اون دو خط برمیگرده

فایلتون رو بذارید بررسی کنم

[ظهور 313]

فایلتون رو بذارید بررسی کنم

اسم فایل رو هم یه مقداری ویرایش كردم. اما بازم اسم فایل رو میاره و نمیتونم حذفش كنم
من میخوام براساس تاریخ و ساعت و دقیقه و همینطور یه متن مختصر نامگذای بشه


- - - Updated - - -

[Amir Ghasemiyan]

PicFileName = ActiveWorkbook.Path & "\" & [COLOR=#ff0000]name of picture fileبرای انتخاب محدوده از این کد استفاده کنید:

	
	
Range("A1").CurrentRegion.Select
و برای نامگذاری هم از این کد:
 & ".jpg"

قسمتی که قرمز کردم نام مورد نظر فایل با هر ساختاری که شما دوست دارید قرار میگیره[/COLOR]

[ظهور 313]

ممنون استاد مثل همیشه عالی بود
از لطفتون خیلی خیلی ممنونم