আমি যখন কোনও কিছু অনুলিপি করি এবং সফ্টওয়্যারটি ছাড়ি (এক্সেল বা শব্দ এবং সম্ভবত অন্যরা) তখন আমার কাছে একটি সতর্কতা থাকে, আমাকে জিজ্ঞাসা করে আমি ক্লিপবোর্ডের বিষয়বস্তু রাখতে বা মুছতে চাইছি, কারণ এটি খুব বড়। সময়ে সময়ে এই মডেল সতর্কতা আমাকে বিরক্ত করে, এটি কি এটি অক্ষম করার উপায়?
কারণ, আমি যদি ক্লিপবোর্ডে কোনও কিছু অনুলিপি করি তবে হ্যাঁ আমি এটি ক্লিপবোর্ডে থেকে যেতে চাই।
উত্তর:
যতদূর আমি অবগত আছি এই সতর্কতাটি প্রতিরোধের কোনও উপায় নেই, কারণ মাইক্রোসফ্ট চায় না যে আপনি দুর্ঘটনাক্রমে আপনার ডেটা হারাবেন (উদাহরণস্বরূপ অন্য প্রোগ্রামে কিছু পাঠ্য আটকানোর আগে শব্দটি বন্ধ করা)।
এটি কেবল উইন্ডোজ ক্লিপবোর্ডের কাজ করার কারণে। আপনি যখন জিনিসগুলি অনুলিপি করুন এবং পেস্ট করবেন তখন আধুনিক প্রোগ্রামগুলির জন্য উত্পন্ন অ্যাপ্লিকেশনটি আপনার অনুলিপি করা কিছু সন্নিবেশ করার চেষ্টা করার পরেও লক্ষ্য প্রয়োগের সাথে ইন্টারঅ্যাক্ট করতে পারে। আপনি কোনও ওয়েব ব্রাউজারে পাঠ্য অনুলিপি করতে সক্ষম হন এবং উদাহরণ হিসাবে এটি কোনও ওয়ার্ড ডকুমেন্টে এইচটিএমএল ফর্ম্যাট করা পাঠ্য হিসাবে সন্নিবেশ করতে সক্ষম হন (কেবল অন্যদিকে)।
উইন্ডোজ ক্লিপবোর্ড নিজে থেকে কয়েকটি আলাদা মিডিয়া ফর্ম্যাটকে সমর্থন করে, এর মতো কৌশলগুলি বিকাশকারীদের সম্ভাবনাগুলি প্রসারিত করার অনুমতি দেয়।
আপনি যদি সতর্কতাটি উপস্থিত না হতে চান তবে প্রোগ্রামটি বন্ধ করার আগে আপনার সামগ্রীটি অনুলিপি করুন এবং পেস্ট করুন, তারপরে ক্ষুদ্র কিছু (যেমন একটি শব্দ বা সেল) অনুলিপি করুন এবং আপনি বার্তাটি পাবেন না। বিকল্প হিসাবে, আপনি ক্লিপবোর্ড প্যানেলটি খুলতে পারেন (সন্নিবেশের ফিতাটির উপরে ক্লিপবোর্ড বিভাগের নীচের ডান অংশে তীরটিতে ক্লিক করুন) এবং বন্ধ হওয়ার আগে স্নিপেটগুলি মুছুন।
এখানে বর্ণিত ম্যাক্রো ব্যবহার করে আপনি এটি স্বয়ংক্রিয় করতে পারেন , যদিও আমি এটির সত্যিকার অর্থে সুপারিশ করব না, কারণ কিছুক্ষণের পরে বা পরে আপনি যে পাঠ্য রাখতে চেয়েছিলেন সেভাবে পাঠ্য বা বিন্যাস হারাবেন।
'Events: http://msdn.microsoft.com/en-us/library/bb208800.aspx
Sub AutoExit()
ClearClipboard
End Sub
Sub ClearClipboard()
Dim MyData As Object
' source: http://akihitoyamashiro.com/en/VBA/LateBindingDataObject.htm
Set MyData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
MyData.SetText ""
MyData.PutInClipboard
Set MyData = Nothing
End Sub