Bir Excel Çalışma Sayfasının Ekran Görüntüsünü Outlook E-posta Gövdenize Eklemenin 2 Hızlı Yolu

Bazen Excel çalışma sayfasını bir e-postanın gövdesine kopyalamak yerine çalışma sayfasının ekran görüntüsünü eklemek isteyebilirsiniz. Böylece, bu makale onu elde etmek için 2 yöntem gösterecektir.

Birçok kullanıcı, belirli bir Excel çalışma sayfasının ekran görüntüsünü dışa aktarmak ve ardından ekran görüntüsünü bir Outlook e-postasının mesaj gövdesine eklemek ister. Yalnızca ekran görüntüsünde hücre değerleri değiştirilemez. Alıcılar bilgisayarlarına MS Excel yüklememiş olsalar bile ekran görüntüsü görüntülenebilir.

Bu 2 yolla gerçekleştirilebilir. İlki, aşağıdaki Yöntem 1'de ayrıntılı bir şekilde tanıtılan yerleşik özellik olan “Ekle” > “Ekran Görüntüsü” ile yapılır. İkincisi, Yöntem 2'de gösterildiği gibi biraz komut dosyası kullanmaktır. Şimdi okumaya devam edin onları ayrıntılı olarak alın.

Yöntem 1: Excel Penceresinin Ekran Görüntüsünü Ekleme

1. Öncelikle, e-postaya eklemek istediğiniz Excel çalışma sayfasını açın.
2. Ardından, Outlook'u başlatın ve yeni bir e-posta oluşturun.
3. Ardından, Mesaj penceresinde “Ekle” sekmesine geçin.
4. Daha sonra “Ekran Görüntüsü” butonuna tıklayın.
5. "Mevcut Windows" listesinde, Excel çalışma sayfasının ekran görüntüsünü seçin.
6. Hemen, Excel çalışma sayfasının ekran görüntüsü eklenecektir.
7. Artık ekran görüntüsünü istediğiniz gibi kırpabilirsiniz.

Yöntem 2: Excel Çalışma Sayfasının Ekran Görüntüsünü VBA ile Kopyalayın

1. En başta, Excel dosyasını açın.
2. Ardından, Excel VBA düzenleyicisini tetiklemek için “Alt + F11” tuşlarına basın.
3. Ardından, “MS Outlook Nesne Kitaplığı” ve “MS Word Nesne Kitaplığı”na aşağıdaki talimatlara göre referans ekleyin:VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir?".
4. Bundan sonra, aşağıdaki VBA kodunu bir projeye veya modüle kopyalayın.

Sub ExportInsert_ScreenshotOfSheet_Mail()
    Dim objSheet As Excel.Worksheet
    Dim objUsedRange As Excel.Range
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.document
 
    'Change "Sheets(1)" to the specific worksheet number
    Set objSheet = ActiveWorkbook.Sheets(1)
    Set objUsedRange = objSheet.UsedRange
    'Copy the screenshot of the sheet
    objUsedRange.CopyPicture xlScreen, xlPicture

    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    'Paste the copied screenshot
    objMailDocument.Range(0, 0).Paste
End Sub

5. Daha sonra bu makroyu çalıştırmak için “F5” tuşuna basın.
6. Hemen yeni bir e-posta görüntülenecektir.
7. Küçük iletişim kutusunda, "İzin Ver" düğmesini tıklayın.
8. Son olarak, Excel çalışma sayfasının ekran görüntüsü posta gövdesine eklenecektir.

Outlook Dosyasının Hasar Görmesiyle Karşılaşıldığında

Yanlışlıkla virüs bulaşmış herhangi bir eki indirirseniz, Outlook dosyanızın saldırıya uğraması ve dolayısıyla tehlikeye girmesi çok olasıdır. Böyle bir durumda, virüsleri öldürmek için öncelikle antivirüs yazılımını çalıştırmanız gerekir. Daha sonra, sağlam bir üçüncü taraf onarım aracına yatırım yapmanız gerekir, örneğin DataNumen Outlook Repairolabilir PST'yi onar ter dökmeden dosyalayın.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com