Как из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д