VBA - Изображение Excel в Outlook с изменением размера изображения - PullRequest
Новая
       8

VBA - Изображение Excel в Outlook с изменением размера изображения

0 голосов
/ 28 ноября 2018

Я собрал код, который работает довольно хорошо, однако картинка, вставленная в электронное письмо, слишком мала, я хотел бы увеличить его, но я изо всех сил пытаюсь найти правильный код.

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

Может кто-нибудь добавить эти две функции в мой код? 

Sub Print_and_send()
Dim Sht As Excel.Worksheet
Set Sht = ThisWorkbook.ActiveSheet

Dim rng As Range
Set rng = Sht.Range("D3:Y42")
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")

Dim OutMail As Object
Set OutMail = OutApp.CreateItem(0)

Dim vInspector As Object
Set vInspector = OutMail.GetInspector

Dim wEditor As Object
Set wEditor = vInspector.WordEditor


With OutMail
    .To = "youremail"
    .CC = "youremail"

    .Subject = "Test"
    .display


     wEditor.Paragraphs(2).Range.Paste



End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

1 Ответ

0 голосов
/ 29 ноября 2018

Вы можете обратиться к этому коду: 

 For Each shp In wordDoc.InlineShapes
        shp.ScaleHeight = 90
        shp.ScaleWidth = 90
    Next

Для получения дополнительной информации, пожалуйста, перейдите по этой ссылке:

Изменение размера вставленного JPEG в MailItem

...