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.
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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins