Как из Excel скопировать таблицу и вставить её как bitmap (картинка) в Outlook например в 10ой строке - VBA
Формулировка задачи:
Добрый день!
Подскажите пожалуйста: как из Excel скопировать таблицу и вставить её как bitmap (картинка) в Outlook в заданной строке письма (например в 10ой)
Т.е. делаю ежедневный отчет по продажам - и соответственно, в нём 6 пунктов
Т.е. идёт название пункта, а в следующей строке как bitmap вставляется таблица
И соответственно, если научиться делать это действие, то всё письмо 12ю командами будет формироваться
В интернете везде только рассказывают только как готовую кратинку вставить в тело письма
Решение задачи: «Как из Excel скопировать таблицу и вставить её как bitmap (картинка) в Outlook например в 10ой строке»
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