ExcelブックのすべてのワークシートからOutlookの電子メールにすべてのグラフをすばやくコピーする場合は、この記事で公開されている方法を使用できます。 それはあなたが一度にそれを手に入れるのを助けることができます。
おそらく、Excelブックの統計用のグラフのスタックを作成したことでしょう。 そして後で、これらのグラフを最大限に活用して、新しいOutlookメールを作成したいと思います。 もちろん、手動でXNUMXつずつメールにコピーすることもできます。 それでも、それはかなり面倒です。 したがって、以下では、はるかに便利な方法をあなたと共有します。 クリックするだけでそれを実現できます。 それを詳細に理解するために読んでください。
すべてのグラフをExcelワークブックからOutlook電子メールにバッチコピーする
- まず、該当するExcelワークブックを開いてください。
- 次に、「Alt + F11」を押して、ExcelVBAエディターにアクセスします。
- 新しいウィンドウで、「MS Outlook オブジェクト ライブラリ」と「MS Word オブジェクト ライブラリ」を追加します。手順は、記事で紹介されている手順と同様です。VBAでオブジェクトライブラリ参照を追加する方法"
- その後、次のVBAコードを「ThisWorkbook」プロジェクトに配置します。
Sub CopyAllChartsToOutlookEmail()
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objSheet As Excel.Worksheet
Dim objChart As Excel.ChartObject
'Get Outlook Application
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
'Create an Outlook Email
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
'Copy All Charts from Each Sheet to the New Email
For Each objSheet In ActiveWorkbook.Worksheets
For Each objChart In objSheet.ChartObjects
objChart.Copy
objMailDocument.Range(0, 0).Paste
Next
Next
End Sub
- その後、「F5」キーボタンをタップするか、ツールバーの「実行」アイコンをクリックしてマクロを実行します。
- その後、次の画像のように、Outlookの電子メールがポップアップ警告とともに表示されます。
- 「許可」ボタンを選択してクリックすると、ソースExcelブックのすべてのグラフがこのメールに一度にコピーされます。
Outlookをすべてのリスクから保護する
ご存知のとおり、Outlookデータファイルを含め、データを取り巻く脅威はたくさんあります。 また、Outlookの破損に苦しむことに消極的な人は誰もいません。 したがって、すべてのOutlookユーザーは、あらゆる種類の潜在的なリスクからOutlookを保護するためのアクションを実行する必要があります。 具体的には、ユーザーはOutlookデータを定期的にバックアップする必要があります。 Outlookの回復 たくさん。 さらに、次のような強力なPST修正ツールを入手したほうがよいでしょう。 DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したSQL と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com