Como desativar a cópia como imagem no Excel?

Question

Recentemente parece que o Excel fez o comportamento padrão de copiar-como-imagem para a tecla de atalho Ctrl + C (na verdade, parece colocar o texto formatado, os dados da célula da tabela, e uma imagem de exibição de impressão na área de transferência simultaneamente).

Isso é ruim se você tiver um fluxo de trabalho no qual copie dados do Excel e cole em outro aplicativo do MS Office ou em um formulário da Web no Google Chrome, onde o comportamento padrão de Ctrl + < kbd> V é colar o conteúdo mais rico disponível. Em produtos da Atlassian como o Jira, por exemplo, isso faz com que o coletor acione a inserção de "capturas de tela" (anexos de imagem).

Então a questão é:

Como posso dizer ao Excel para NÃO colocar dados de imagem na área de transferência quando eu pressionar Ctrl + C ?

Estou ciente de que é possível forçar a colagem de texto simples nos aplicativos mencionados acima. Eu não estou perguntando como fazer isso. Isso é complicado porque não existe uma maneira padrão de fazê-lo.

Ctrl + Deslocamento + V no Chrome.

Ctrl + V , Ctrl , T no Outlook.

etc ...

    

Answer 1

Você pode experimentar este código VBA para verificar se a Área de Transferência possui Dados de Imagem ou não, e se tiver, esse código impedirá de colá-lo.

Lembre-se de que o efeito de Ctrl + C só pode ser interrompido desativando-o. Por isso, acredito que esta é a melhor solução possível.

Note, antes de executar este código VBA, no VB Editor clique em Tool e depois em References e selecione Microsoft Form 2.0 Biblioteca de Objetos . p>

É melhor você usar o código com o evento aberto da pasta de trabalho.

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: Você também precisa criar um botão de comando Click event para ativar o Cut Copy Mode . Este código simples vai fazer isso.

Application.CutCopyMode = True

Application.DisplayAlerts = Ture

Este código foi testado por mim, antes de postar aqui.