¿Cómo enviar un gráfico específico en un correo electrónico con vba en Excel?
Es posible que sepa cómo enviar un correo electrónico a través de Outlook en Excel con código VBA. Sin embargo, ¿sabe cómo adjuntar un gráfico específico en una determinada hoja de trabajo en el cuerpo del correo electrónico? Este artículo le mostrará el método para resolver este problema.
Envíe un gráfico específico en un correo electrónico en Excel con código VBA
Envíe un gráfico específico en un correo electrónico en Excel con código VBA
Haga lo siguiente para enviar un gráfico específico en un correo electrónico con código VBA en Excel.
1. En la hoja de trabajo que contiene el gráfico que desea adjuntar en el cuerpo del correo electrónico, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Módulo. Luego, copie el código VBA a continuación en la ventana Código.
Código VBA: envíe un gráfico específico en un correo electrónico en 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=" & "cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """ width=700 height=500 > <br> <br>"
xChart.Chart.Export xChartPath
With xOutMail
.To = ""
.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
Note: En el código, cambie la dirección de correo electrónico del destinatario y el asunto del correo electrónico en la línea .Para = "" y la línea .Subject = "Agregar gráfico en el cuerpo del correo de Outlook" , Sheet1 es la hoja que contiene el gráfico que desea enviar, cámbielo por el suyo.
3. presione el F5 clave para ejecutar el código. En la apertura Kutools for Excel cuadro de diálogo, ingrese el nombre del gráfico que adjuntará en el cuerpo del correo electrónico y luego haga clic en el OK botón. Ver captura de pantalla:
Luego, se crea un correo electrónico automáticamente con el gráfico especificado que se muestra en el cuerpo del correo electrónico como se muestra a continuación. Haga clic en el botón Enviar para enviar este correo electrónico.
Artículos relacionados:
- ¿Cómo enviar correos electrónicos automáticamente según el valor de la celda en Excel?
- ¿Cómo insertar una firma en el correo electrónico de Outlook al enviar por vba en Excel?
- ¿Cómo enviar un correo electrónico a una hora específica del día en Excel?
- ¿Cómo enviar correo electrónico con cuerpo de correo electrónico HTML en Excel?
- ¿Cómo enviar un correo electrónico con el formato de texto especificado en negrita / tamaño / color / subrayado en Excel?
- ¿Cómo enviar correos electrónicos sin Outlook en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!