DONUT PROJECT 2024 - VBA - Retorna o Valor do Conteúdo da Área de Transferência do Sistema

Retorna o valor do conteúdo da área de transferência do sistema.

Exemplo de uso: =CLIP()

 Série Donut Project 

  

A função "CLIP" não é nativa no Excel. No entanto, você pode acessar o conteúdo da área de transferência do sistema usando VBA. Abaixo estão três exemplos de como você pode usar VBA para acessar o conteúdo da área de transferência no MS Excel:

 

Exemplo 1: Exibir o Conteúdo da Área de Transferência em uma Caixa de Mensagem

Este exemplo usa VBA para acessar o conteúdo da área de transferência do sistema e exibi-lo em uma caixa de mensagem.

Sub ExibirConteudoClipboard()

    Dim conteudo As String

    conteudo = GetClipboardContent()

    

    MsgBox "Conteúdo da área de transferência:" & vbCrLf & conteudo, vbInformation, "Conteúdo do Clipboard"

End Sub

Function GetClipboardContent() As String

    Dim clipboard As MSForms.DataObject

    Set clipboard = New MSForms.DataObject

    clipboard.GetFromClipboard

    

    GetClipboardContent = clipboard.GetText

End Function

Sub ExibirConteudoClipboard()

    Dim conteudo As String

    conteudo = GetClipboardContent()

    

MsgBox "Conteúdo da área de transferência:" & vbCrLf & conteudo, vbInformation, "Conteúdo do Clipboard"

End Sub

Function GetClipboardContent() As String

    Dim clipboard As MSForms.DataObject

    Set clipboard = New MSForms.DataObject

    clipboard.GetFromClipboard

    

    GetClipboardContent = clipboard.GetText

End Function

Sub InserirConteudoClipboard()

    Dim conteudo As String

    conteudo = GetClipboardContent()

    

    ThisWorkbook.ActiveSheet.Range("A1").Value = conteudo

End Sub

Function GetClipboardContent() As String

    Dim clipboard As MSForms.DataObject

    Set clipboard = New MSForms.DataObject

    clipboard.GetFromClipboard

    

    GetClipboardContent = clipboard.GetText

End Function

Exemplo 3: Colar o Conteúdo da Área de Transferência em uma Célula Específica

Este exemplo usa VBA para simular a ação de colar o conteúdo da área de transferência em uma célula específica na planilha ativa.

 Série VBA Outlook: 

  

  

  

Lembre-se de adicionar a referência "Microsoft Forms 2.0 Object Library" no VBA para usar o objeto DataObject. Para isso, vá para Ferramentas -> Referências no Editor do VBA e marque a caixa de seleção ao lado de "Microsoft Forms 2.0 Object Library". Isso permitirá o acesso ao objeto DataObject, que é usado para acessar o conteúdo da área de transferência.

 Clique nas capas abaixo e compre também: