Как из Excel скопировать таблицу и вставить её как bitmap (картинка) в Outlook например в 10ой строке - VBA

Формулировка задачи:

Добрый день! Подскажите пожалуйста: как из Excel скопировать таблицу и вставить её как bitmap (картинка) в Outlook в заданной строке письма (например в 10ой) Т.е. делаю ежедневный отчет по продажам - и соответственно, в нём 6 пунктов Т.е. идёт название пункта, а в следующей строке как bitmap вставляется таблица И соответственно, если научиться делать это действие, то всё письмо 12ю командами будет формироваться В интернете везде только рассказывают только как готовую кратинку вставить в тело письма

Код к задаче: «Как из Excel скопировать таблицу и вставить её как bitmap (картинка) в Outlook например в 10ой строке - VBA»

textual
Sub Отправить_форматированный_текст_и_рисунок()
    Dim wdApp As Object, wdDoc As Object
    Dim oOutlook As Object, oMessage As Object
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Add
    Sheets("Progress").Range("B3:B3").Copy 'более 1-ой ячейки для копирования фона и границ    With wdApp
        .Activate
        With .Selection
            .PasteExcelTable False, False, True
            .Collapse Direction:=0 'wdCollapseEnd            .TypeParagraph
        End With
        ActiveWorkbook.Activate
        Sheets("Progress").Range("B4:AL369").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        .Activate
        With .Selection
            .Paste
            .WholeStory
            .Copy
        End With
    End With
    Set oOutlook = CreateObject("Outlook.Application")
    Set oMessage = oOutlook.CreateItem(0)
    With oMessage
        .To = "name@mail.ru"
        .Subject = "Тест отправки 1"
        .BodyFormat = 3 ' olFormatRichText        .Body = ""
        .Display
        SendKeys "^v", True
        .Send
    End With
    Set oMessage = Nothing
    Set oOutlook = Nothing
End Sub

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ