এক্সেল এই কার্যকারিতা জন্য কোনো ব্যবহারকারী-প্রবেশযোগ্য সমর্থন অভাব আছে, কিন্তু আপনি পারেন সহজে এই সমস্যা এড়ানোর বা VBA, যেখানে এই কার্যকারিতা করার জন্য খোঁড়াখুঁড়ি করা হয় প্রদান করা:
"ওয়ান-শট" রফতানি
- গ্রাফটি নির্বাচন করুন (পুরো গ্রাফ, কোনও অভ্যন্তরীণ উপাদান নয়; তাই সীমানাটি নির্বাচন করুন)।
- এটি অনুলিপি করুন (ctrl-c, ডান ক্লিক করুন অনুলিপি, আপনি যা খুশি)।
- ওপেন এমএস পেইন্ট
- আটকান (আপনি প্রথমে চিত্রের আকার হ্রাস করতে চাইতে পারেন, এটি ফিট করার জন্য বাড়ানো হবে তবে সঙ্কুচিত হবে না)।
- পছন্দসই হিসাবে সংরক্ষণ করুন।
বাল্ক রফতানি
আপনি সম্ভবত ActiveChart.Exportকোনও ভিবিএ ম্যাক্রো ব্যবহার করে দেখতে চান , এটি আপনাকে একটি ফাইলের পথ নির্দিষ্ট করতে দেয় এবং তারপরে এক্সেলকে কাজটি করতে দেয়।
নীচে একটি কার্যকারী প্রোটোটাইপ যা আমি সবেমাত্র একসাথে রেখেছি। এটি চালান এবং সক্রিয় ওয়ার্কবুকের প্রতিটি চার্ট পিএনজি ফর্ম্যাটে সেই ফাইলের একই ফোল্ডারে রফতানি করা হবে, _chart##যেখানে ফাইলের নাম সংযুক্ত করা হবে (যেখানে ##একটি বর্ধমান সংখ্যা রয়েছে)।
এটি কোনও সুরক্ষা চেক সঞ্চালন করে না (সুতরাং ফাইলগুলি ওভাররাইট করে দেবে!) এবং কোনও ত্রুটি যাচাই করে না । আপনি যদি এখনও ওয়ার্কবুক সংরক্ষণ না করে থাকেন তবে এটি কাজ করবে না , অবস্থানটি কেবল পঠনযোগ্য বা অন্য কোনও কিছু যা ফাইলের অবস্থানে লিখতে বাধা দেয়। আমি কেবল এটি এক্সেল 2003 এ পরীক্ষা করেছি (এই মুহুর্তে আমাকে যা হ'ল তা কেবল)।
অন্য কথায়: আপনার নিজের ঝুঁকিতে ব্যবহার করুন , এটি কেবলমাত্র একটি প্রাথমিক কাজের উদাহরণ হিসাবে চিহ্নিত ।
'small nicety to ensure two-digits for better file sorting'
Function NiceFileNumber(num As Integer) As String
If num < 10 Then
NiceFileNumber = "0" & num
Else
NiceFileNumber = num
End If
End Function
'the real function'
Sub ExportAllCharts()
Dim i As Integer, exportCount As Integer
Dim fileNum As String, fileBase As String
Dim sheetObj As Worksheet
Dim chartObj As Chart
'current file location and name, with extension stripped'
fileBase = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1)
exportCount = 0
'First, export all charts that are in their own sheets'
For Each chartObj In ActiveWorkbook.Charts
fileNum = NiceFileNumber(exportCount)
exportCount = exportCount + 1
'Do the export'
chartObj.Export fileBase & "_chart" & fileNum & ".png"
Next
'Then, export all charts that are embedded inside normal sheets'
For Each sheetObj In ActiveWorkbook.Worksheets
For i = 1 To sheetObj.ChartObjects.count
fileNum = NiceFileNumber(exportCount)
exportCount = exportCount + 1
'Do the export'
sheetObj.ChartObjects(i).Activate
ActiveChart.Export fileBase & "_chart" & fileNum & ".png"
Next i
Next
End Sub
দ্রষ্টব্য: আমি 'উভয় প্রান্তে মন্তব্যগুলিকে ঘিরে রেখেছি , যা প্রয়োজন নেই, তবে তারা এখানে সঠিকভাবে রঙিন হয়েছে তা নিশ্চিত করতে সহায়তা করে।