Copy Excel range as Picture to Outlook

by

To get better picture on Outlook, work with Word object model with MailItem.GetInspector Property (Outlook)

Example

Option Explicit
Public Sub Example()
    Dim rng As Range
    Dim olApp As Object
    Dim Email As Object
    Dim Sht As Excel.Worksheet
    Dim wdDoc As Word.Document

    Set Sht = ActiveWorkbook.Sheets("Dashboard")
    Set rng = Sht.Range("B4:L17")
        rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set olApp = CreateObject("Outlook.Application")
    Set Email = olApp.CreateItem(0)
    Set wdDoc = Email.GetInspector.WordEditor

    With Email
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Attachments.Add ActiveWorkbook.FullName

         wdDoc.Range.PasteAndFormat Type:=wdChartPicture

'        if need setup inlineshapes hight & width
         With wdDoc
            .InlineShapes(1).Height = 130
         End With

        .Display
    End With

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set Email = Nothing
    Set olApp = Nothing
End Sub

More Related Contents:

  1. How to copy Outlook mail message into excel using VBA or Macros
  2. Paste Excel range in Outlook
  3. Update excel sheet based on outlook mail [closed]
  4. Sending mail using Outlook where the Send method fails
  5. Email a single attachment from folder of files each to a different person
  6. How to send mail when the .Send does not work?
  7. How to add an attachment to an email using VBA in Excel
  8. How to send email to multiple recipients with addresses stored in Excel?
  9. Type Mismatch in Loop to scan Outlook Messages [duplicate]
  10. Finding a workbook in one of multiple Excel instances
  11. Convert Early Binding VBA to Late Binding VBA : Excel to Outlook Contacts
  12. Change HTML email body font type and size in VBA
  13. How to Send Email When Computer is Locked?
  14. How do I find the last column with data?
  15. How to insert a picture into Excel at a specified cell position with VBA
  16. Save multiple sheets to .pdf
  17. Having multiple Excel instances launched, how can I get the Application Object for all of them?
  18. How can I create a calendar input in VBA Excel?
  19. Merge values of column B based on common values on column A
  20. How to import a table from web page (with “div class”) to excel?
  21. Concatenate cell data into another data if values matches
  22. Iterating through populated rows
  23. How to convert 32 bit VBA code into 64 bit VBA code
  24. Loop through each row of a range in Excel
  25. Outputting Excel rows to a series of text files
  26. How to create a range from two ranges in VBA?
  27. XML parse VBA excel (function trip, & MSXML2.DOMDocument)
  28. every possible combination of the contents of 2 columns in excel
  29. Converting a string representation of a constant into a constant?
  30. How to protect Excel workbook using VBA?

Leave a Comment