Como enviar um gráfico específico em um e-mail com VBA no Excel?

Você pode saber como enviar um e-mail pelo Outlook no Excel com código VBA. No entanto, você sabe como anexar um gráfico específico de uma determinada planilha no corpo do e-mail? Este artigo mostrará o método para resolver esse problema.

Enviar um gráfico específico em um e-mail no Excel com código VBA

Enviar um gráfico específico em um e-mail no Excel com código VBA

Por favor, siga os passos abaixo para enviar um gráfico específico em um e-mail com código VBA no Excel.

1. Na planilha que contém o gráfico que você deseja anexar no corpo do e-mail, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo na janela Código.

Código VBA: Enviar um gráfico específico em um e-mail no Excel

Sub mailHTMLsend()
'Updated by Extendoffice 2018/3/5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xStartMsg As String
    Dim xEndMsg As String
    Dim xChartName As String
    Dim xChartPath As String
    Dim xPath As String
    Dim xChart As ChartObject
    On Error Resume Next
    xChartName = Application.InputBox("Please enter the chart name:", "KuTools for Excel", , , , , , 2)
    If xChartName = "" Then Exit Sub
    Set xChart = Sheets("Sheet1").ChartObjects(xChartName) 'Change "Sheet1" to your worksheet name
    If xChart Is Nothing Then Exit Sub
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xStartMsg = "<font size='5' color='black'> Good Day," & "<br> <br>" & "Please find the chart below: " & "<br> <br> </font>"
    xEndMsg = "<font size='4' color='black'> Many Thanks," & "<br> <br> </font>"
    xChartPath = Application.ActiveWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"
    xPath = "<p align='Left'><img src="/%20&%20"cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """  width=700 height=500 > <br> <br>"
    xChart.Chart.Export xChartPath
    With xOutMail
        .To = "xrr@163.com"
        .Subject = "Add Chart in outlook mail body"
        .Attachments.Add xChartPath
        .HTMLBody = xStartMsg & xPath & xEndMsg
        .Display
    End With
    Kill xChartPath
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Observação: No código, altere o endereço de e-mail do destinatário e o assunto do e-mail nas linhas .To = "xrr@163.com" e .Subject = "Adicionar Gráfico no corpo do e-mail do Outlook", Sheet1 é a planilha que contém o gráfico que você deseja enviar; altere-o conforme necessário.

3. Pressione a tecla F5 para executar o código. Na caixa de diálogo Kutools for Excel que aparece, insira o nome do gráfico que você deseja anexar no corpo do e-mail e clique no botão OK. Veja a captura de tela:

Em seguida, um e-mail será criado automaticamente com o gráfico especificado exibido no corpo do e-mail, conforme mostrado na captura de tela abaixo. Clique no botão Enviar para enviar este e-mail.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Artigos relacionados:

• Como enviar automaticamente um e-mail com base no valor da célula no Excel?
• Como inserir uma assinatura no e-mail do Outlook ao enviar por VBA no Excel?
• Como enviar um e-mail em um horário específico do dia no Excel?
• Como enviar um e-mail com corpo de e-mail em HTML no Excel?
• Como enviar um e-mail com formatação de texto específica (negrito/tamanho/cor/sublinhado) no Excel?
• Como enviar um e-mail sem o Outlook no Excel?