Проблема форматирования при вставке формы Excel в почту Outlook в редактируемом виде через Excel VBA - PullRequest
0 голосов
/ 06 августа 2020

Я создал форму в excel, и она также содержит изображение, и мне нужно вставить эту форму в почту Outlook, но когда я вставляю эту форму в электронную почту Outlook, она приходит в неправильном формате.

Правильный формат, я имею в виду, изображение таблицы не выравнивается. изображение перемещается влево, а таблица немного отходит от левого.

САМОЕ ВАЖНОЕ ТО, ЧТО Я ДОЛЖЕН ВСТАВИТЬ ЭТУ ФОРМУ В OUTLOOK ТОЛЬКО В РЕДАКТИРУЕМОМ ФОРМАТЕ, НЕ КАК BITMAP.

(изображение формы прилагается) - черная часть - это изображение, а ниже - таблица Excel, а последний серый прямоугольник также является изображением enter image description here

Can someone help me with this issue?

I have written below code to copy-paste excel form and image to outlook mail.

Private Sub cmd1_Click()
Dim ol As Outlook.Application
Dim mi As Outlook.MailItem
Dim doc As Word.Document
Dim ws As Worksheet

Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)
Set ws = ActiveWorkbook.Sheets("Form")

mi.Display
mi.To = ""
mi.Subject = ws.Cells(4, 11)

Set doc = mi.GetInspector.WordEditor

ws.Activate
ws.range("B2:F" & ws.Cells(2, 12)).Copy

doc.range(0, 0).PasteSpecial xlTable

Set doc = Nothing

End Sub

When I am running above code, i am getting output like below - image and table are not aligned and i want the output like first image

введите описание изображения здесь

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...