एक्सेल में कॉपी-अस-इमेज को कैसे निष्क्रिय करें?

हाल ही में ऐसा लगता है कि एक्सेल ने Ctrl+ Cहॉटकी के लिए कॉपी- अस -इमेज डिफ़ॉल्ट व्यवहार किया है (वास्तव में यह स्वरूपित पाठ, टेबल सेल डेटा और क्लिपबोर्ड पर एक प्रिंट-व्यू छवि को एक साथ रखना प्रतीत होता है)।

यह गलत है यदि आपके पास एक वर्कफ़्लो है जहाँ आप एक्सेल से डेटा कॉपी करते हैं और किसी अन्य एमएस ऑफ़िस ऐप में, या Google क्रोम में एक वेब-फॉर्म में पेस्ट करते हैं, जहाँ Ctrl+ Vका डिफ़ॉल्ट व्यवहार उपलब्ध सबसे अमीर सामग्री को पेस्ट करना है। उदाहरण के लिए जीरा जैसे एटलसियन उत्पादों में "स्क्रीनशॉट" (छवि संलग्नक) के ट्रिगर डालने के लिए चिपकाने का कारण बनता है।

तो सवाल यह है:

जब मैं Ctrl+ हिट करता हूं तो मैं एक्सेल को क्लिपबोर्ड पर छवि-डेटा नहीं डालने के लिए कैसे कह सकता हूं C?

मुझे पता है कि उपर्युक्त ऐप्स में सादे पाठ को चिपकाना संभव है। मैं यह नहीं पूछ रहा कि ऐसा कैसे किया जाए। यह बोझिल है क्योंकि इसे करने का कोई मानक तरीका नहीं है।

Ctrl+ Shift+ Vक्रोम में।

Ctrl+ V, Ctrl, TOutlook में।

आदि...

microsoft-excel copy-paste microsoft-office-2013

— Superole
स्रोत

आप इस VBA कोड को यह जांचने के लिए आज़मा सकते हैं कि क्लिपबोर्ड में Image Data है या नहीं, और यदि है, तो यह कोड उसे पेस्ट करने से रोकेगा।

याद रखें, Ctrl + C का प्रभाव केवल इसे अक्षम करके रोका जा सकता है। इसलिए मेरा मानना है कि यह सबसे अच्छा संभव उपाय है।

ध्यान दें, इससे पहले कि आप इस VBA कोड को निष्पादित करें, VB एडिटर टूल में फिर सन्दर्भ और Microsoft फॉर्म 2.0 ऑब्जेक्ट लाइब्रेरी का चयन करें ।

बेहतर है कि आप वर्कबुक ओपन इवेंट के साथ कोड का उपयोग करें।

Private Sub Workbook_open()

   Dim BufObj As MSForms.DataObject
   Set BufObj = New MSForms.DataObject

   BufObj.GetFromClipboard

   On Error Resume Next
   ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False

    If Err Then
       MsgBox "Nothing in ClipBoard!": Err.Clear

    Else

      MsgBox "Picture in ClipBoard": Err.Clear
      Application.CutCopyMode = False
      Application.DisplayAlerts = False

   End If

End Sub

NB: आपको कट कॉपी मोड को सक्रिय करने के लिए एक कमांड बटन क्लिक ईवेंट बनाने की भी आवश्यकता है । यह सरल कोड यह करेगा।

Application.CutCopyMode = True

Application.DisplayAlerts = Ture

इस कोड का परीक्षण मेरे द्वारा किया गया था, इससे पहले कि मैंने इसे यहाँ पोस्ट किया है।

— राजेश एस
स्रोत