Como copiar em lote todos os gráficos de uma pasta de trabalho do Excel para um e-mail do Outlook

Se você deseja copiar rapidamente todos os gráficos de cada planilha em uma pasta de trabalho do Excel para um e-mail do Outlook, pode usar o método exposto neste artigo. Ele pode ajudá-lo a obtê-lo de uma só vez.

Talvez você tenha criado uma pilha de gráficos para as estatísticas em uma pasta de trabalho do Excel. E mais tarde, você gostaria de fazer pleno uso desses gráficos para criar um novo e-mail do Outlook. Claro, você pode optar por copiá-los para o e-mail um por um manualmente. No entanto, é bastante problemático. Portanto, a seguir, compartilharemos uma maneira muito mais prática com você. Ele pode ajudá-lo a perceber isso simplesmente com um clique. Agora continue a ler para obtê-lo em detalhes.

Copiar em lote todos os gráficos de uma pasta de trabalho do Excel para um e-mail do Outlook

1. Para começar, abra a planilha do Excel específica.
2. Em seguida, pressione “Alt + F11” para acessar o editor Excel VBA.
3. Na nova janela, adicione “Biblioteca de Objetos do MS Outlook” e “Biblioteca de Objetos do MS Word”. Os passos são semelhantes aos apresentados no artigo – “Como adicionar uma referência à biblioteca de objetos em VBA".
4. Depois disso, coloque o seguinte código VBA no projeto “ThisWorkbook”.

Sub CopyAllChartsToOutlookEmail()
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objSheet As Excel.Worksheet
    Dim objChart As Excel.ChartObject
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
 'Create an Outlook Email
 Set objMail = objOutlookApp.CreateItem(olMailItem)
 objMail.Display
 Set objMailDocument = objMail.GetInspector.WordEditor
 
 'Copy All Charts from Each Sheet to the New Email
 For Each objSheet In ActiveWorkbook.Worksheets
 For Each objChart In objSheet.ChartObjects
 objChart.Copy
 objMailDocument.Range(0, 0).Paste
 Next
 Next
End Sub

5. Depois disso, toque no botão da tecla “F5” ou clique no ícone “Executar” na barra de ferramentas para executar a macro.
6. Posteriormente, um e-mail do Outlook será exibido com um aviso pop-up, mostrado na imagem a seguir.
7. Quando você seleciona e clica no botão “Permitir”, todos os gráficos na pasta de trabalho do Excel de origem serão copiados para este e-mail de uma só vez.

Proteja o Outlook de todos os riscos

Como todos sabemos, muitas ameaças cercam nossos dados, é claro, incluindo nossos arquivos de dados do Outlook. Além disso, ninguém está relutante em sofrer corrupção do Outlook. Portanto, todo usuário do Outlook precisa tomar medidas para proteger seu Outlook de todos os tipos de riscos potenciais. Para ser específico, os usuários precisam fazer backup dos dados do Outlook regularmente, o que pode facilitar Recuperação do Outlook bastante. Além disso, é melhor você obter uma ferramenta de correção de PST potente, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com