Als u snel alle grafieken van elk werkblad in een Excel-werkmap naar een Outlook-e-mail wilt kopiëren, kunt u de methode gebruiken die in dit artikel wordt beschreven. Het kan u helpen het in één keer te krijgen.
Misschien heeft u een stapel grafieken gemaakt voor de statistieken in een Excel-werkmap. En later wilt u deze grafieken volledig gebruiken om een nieuwe Outlook-e-mail te maken. U kunt er natuurlijk voor kiezen om ze een voor een handmatig naar de e-mail te kopiëren. Toch is het behoorlijk lastig. Daarom zullen we in het volgende een veel handiger manier met u delen. Het kan u helpen dat eenvoudig via een klik te realiseren. Lees nu verder om het in detail te krijgen.
Batch Kopieer alle grafieken van een Excel-werkmap naar een Outlook-e-mail
- Open om te beginnen het betreffende Excel-werkblad.
- Druk vervolgens op "Alt + F11" om toegang te krijgen tot de Excel VBA-editor.
- Voeg in het nieuwe venster 'MS Outlook-objectbibliotheek' en 'MS Word-objectbibliotheek' toe. De stappen zijn vergelijkbaar met die beschreven in het artikel – "Hoe voeg je een verwijzing naar een objectbibliotheek toe in VBA?'.
- Plaats daarna de volgende VBA-code in het "ThisWorkbook" -project.
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
- Tik daarna op de toets "F5" of klik op het pictogram "Uitvoeren" in de werkbalk om de macro uit te voeren.
- Vervolgens wordt een Outlook-e-mail weergegeven met een pop-upwaarschuwing, weergegeven als de volgende afbeelding.
- Wanneer u selecteert en klikt op de knop "Toestaan", worden alle grafieken in de Excel-bronwerkmap in één keer naar deze e-mail gekopieerd.
Bescherm Outlook tegen alle risico's
Zoals we allemaal weten, zijn er tal van bedreigingen rond onze gegevens, waaronder natuurlijk onze Outlook-gegevensbestanden. Ook is niemand terughoudend in het lijden van Outlook-corruptie. Elke Outlook-gebruiker moet dus acties ondernemen om zijn Outlook te beschermen tegen allerlei mogelijke risico's. Om specifiek te zijn, gebruikers moeten regelmatig een back-up maken van Outlook-gegevens, wat dit kan vergemakkelijken Outlook-herstel veel. Bovendien kun je beter een krachtige PST-fix-tool aanschaffen, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com