Como enviar um gráfico específico por e-mail com VBA no Excel?
Poderá já saber como enviar um e-mail através do Outlook no Excel com código VBA. Mas será que sabe como inserir diretamente no corpo do e-mail um gráfico específico de uma determinada folha? Este artigo mostra-lhe exatamente como resolver esse desafio.
Enviar um gráfico específico num e-mail no Excel com código VBA
Enviar um gráfico específico num e-mail no Excel com código VBA
Siga os passos abaixo para enviar um gráfico específico por e-mail utilizando código VBA no Excel.
1. Na folha que contém o gráfico que pretende incluir no corpo do e-mail, prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela de código.
Código VBA: Enviar um gráfico específico num 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
Nota: No código, substitua 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 folha que contém o gráfico que pretende enviar; altere-a conforme necessário.
3. Prima a tecla F5 para executar o código. Na caixa de diálogo Kutools para Excel que se abre, introduza o nome do gráfico que pretende incluir no corpo do e-mail e, em seguida, clique no botão OK. Veja a imagem:
Será então criado automaticamente um e-mail com o gráfico especificado inserido diretamente no corpo da mensagem, tal como ilustrado na imagem seguinte. Clique no botão Enviar para enviar este e-mail.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como enviar automaticamente um e-mail com base no valor de uma célula no Excel?
- Como inserir uma assinatura num e-mail do Outlook ao enviá-lo por VBA no Excel?
- Como enviar um e-mail a uma hora específica do dia no Excel?
- Como enviar um e-mail com corpo em HTML diretamente do Excel?
- Como enviar um e-mail com formatação específica — como negrito, tamanho, cor e sublinhado — diretamente do Excel?
- Como enviar um e-mail sem usar o Outlook no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos