Comment désactiver la copie en tant qu'image dans Excel?

Récemment, il semble qu'Excel ait adopté le comportement par défaut de la copie en tant qu'image pour le raccourci clavier Ctrl+ C(en fait, il semble que le texte mis en forme, les données de la cellule de tableau et une image en vue d'impression soient simultanément dans le presse-papiers).

Cela est mauvais si vous avez un flux de travail dans lequel vous copiez des données d'Excel et les collez dans une autre application MS Office ou dans un formulaire Web dans Google Chrome, où le comportement par défaut de Ctrl+ Vest de coller le contenu le plus riche disponible. Dans les produits Atlassian tels que Jira, par exemple, le collage provoque l’insertion de «captures d’écran» (images jointes).

La question est donc:

Comment puis-je dire à Excel de ne PAS mettre de données d'image dans le presse-papiers lorsque je clique sur Ctrl+ C?

Je suis conscient qu'il est possible de forcer le collage de texte brut dans les applications mentionnées ci-dessus. Je ne demande pas comment faire cela. C'est fastidieux car il n'y a pas de moyen standard de le faire.

Ctrl+ Shift+ VDans Chrome.

Ctrl+ V, Ctrl, TDans Outlook.

etc...

Vous pouvez essayer ce code VBA pour vérifier si le Presse-papiers contient des données d’image ou non. Si tel est le cas, ce code empêchera de le coller.

N'oubliez pas que l'effet de Ctrl + C peut être arrêté uniquement en le désactivant. Je pense donc que c'est la meilleure solution possible.

Remarque: avant d'exécuter ce code VBA, dans VB Editor, cliquez sur Outil, puis sur Références et sélectionnez Bibliothèque d'objets Microsoft Form 2.0 .

Mieux vaut utiliser le code avec l'événement ouvert de classeur.

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: Vous devez également créer un seul événement Bouton de commande pour activer le mode Copie par copie . Ce code simple le fera.

Application.CutCopyMode = True

Application.DisplayAlerts = Ture

Ce code a été testé par moi, avant que je ne l'aie posté ici.