Bir Excel çalışma kitabındaki her çalışma sayfasındaki tüm grafikleri hızlı bir şekilde bir Outlook e-postasına kopyalamak istiyorsanız, bu makalede açıklanan yöntemi kullanabilirsiniz. Tek seferde almanıza yardımcı olabilir.
Belki de bir Excel çalışma kitabında istatistikler için bir grafik yığını oluşturmuşsunuzdur. Ve daha sonra, yeni bir Outlook postası oluşturmak için bu çizelgelerden tam olarak yararlanmak istersiniz. Elbette, bunları manuel olarak tek tek e-postaya kopyalamayı seçebilirsiniz. Ancak oldukça sıkıntılı. Bu nedenle ilerleyen bölümlerde sizlerle çok daha kolay bir yolu paylaşacağız. Bunu sadece bir tıklama ile fark etmenize yardımcı olabilir. Şimdi ayrıntılı olarak almak için okumaya devam edin.
Excel Çalışma Kitabındaki Tüm Grafikleri Outlook E-postasına Toplu Kopyalama
- Öncelikle, ilgili Excel çalışma kitabını açın.
- Ardından, Excel VBA düzenleyicisine erişmek için “Alt + F11” tuşlarına basın.
- Yeni pencerede “MS Outlook Nesne Kitaplığı” ve “MS Word Nesne Kitaplığı”nı ekleyin. Adımlar, makalede tanıtılanlara benzerdir – “VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir?".
- Ardından aşağıdaki VBA kodunu “ThisWorkbook” projesine ekleyin.
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
- Bundan sonra, makroyu çalıştırmak için “F5” tuşuna basın veya araç çubuğundaki “Çalıştır” simgesine tıklayın.
- Ardından, aşağıdaki resimde gösterilen bir açılır pencere uyarısıyla birlikte bir Outlook e-postası görüntülenecektir.
- “İzin Ver” düğmesini seçip tıkladığınızda, kaynak Excel çalışma kitabındaki tüm grafikler bir kerede bu postaya kopyalanacaktır.
Görünümü Tüm Risklerden Koruyun
Hepimizin bildiği gibi, verilerimizi çevreleyen çok sayıda tehdit var, tabii ki Outlook veri dosyalarımız da dahil. Ayrıca, hiç kimse Outlook bozulmasına maruz kalmaktan çekinmez. Bu nedenle, her Outlook kullanıcısı, Outlook'u her türlü potansiyel riskten korumak için önlemler almalıdır. Daha açık olmak gerekirse, kullanıcıların Outlook verilerini düzenli olarak yedeklemesi gerekir; bu da kolaylaştırabilir Outlook kurtarma çok fazla. Ayrıca, güçlü bir PST düzeltme aracına sahip olsanız iyi olur, örneğin DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com