Excelでvbaを使用して特定のグラフを電子メールで送信するにはどうすればよいですか？

VBAコードを使用してExcelのOutlookから電子メールを送信する方法を知っているかもしれません。 ただし、特定のワークシートの特定のグラフをメールの本文に添付する方法を知っていますか？ この記事では、この問題を解決する方法を紹介します。

VBAコードを使用してExcelの電子メールで特定のグラフを送信する

VBAコードを使用してExcelの電子メールで特定のグラフを送信する

ExcelでVBAコードを含む特定のグラフをメールで送信するには、次のようにしてください。

1.メール本文に添付するグラフが含まれているワークシートで、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください インセット > モジュール。 次に、以下のVBAコードを[コード]ウィンドウにコピーします。

VBAコード：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 = "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

Note：コードで、受信者のメールアドレスとメールの件名を行で変更してください .To = "xrr@163.com" と行 .Subject = "Outlookのメール本文にグラフを追加" , Sheet1 送信したいチャートが入っているシートですので、自分のものに変更してください。

3。 プレス F5 コードを実行するためのキー。 オープニングで Kutools for Excel ダイアログボックスで、添付するグラフの名前をメール本文に入力し、[ OK ボタン。 スクリーンショットを参照してください：

次に、以下のスクリーンショットに示すように、指定したグラフがメール本文に表示されたメールが自動的に作成されます。 このメールを送信するには、[送信]ボタンをクリックしてください。

関連記事：

• Excelのセル値に基づいて電子メールを自動的に送信するにはどうすればよいですか？
• Excelでvbaで送信するときにOutlookの電子メールに署名を挿入するにはどうすればよいですか？
• ExcelでXNUMX日の特定の時間にメールを送信するにはどうすればよいですか？
• ExcelでHTMLメール本文を使用してメールを送信するにはどうすればよいですか？
• Excelで指定された太字/サイズ/色/下線のテキスト形式で電子メールを送信するにはどうすればよいですか？
• ExcelでOutlookなしでメールを送信するにはどうすればよいですか？