Форматирование изображений при вставке в электронную почту Outlook из Excel через VBA

Question

У меня проблема с Outlook, автоматически меняющим размеры изображений после отправки электронного письма, если они отформатированы как «Обтекание текстом - в соответствии с текстом»

Я запускаю ежедневный отчет, в который вставляется изображение Диаграмма из Excel в Outlook, но я борюсь с тем, как в Excel автоматически обернуть изображение как Top & Bottom в электронное письмо.

Приведенный ниже код прекрасно работает и вставляет желаемое изображение в электронное письмо, но с форматированием по умолчанию: "в соответствии с текстом". Я попытался изменить настройки Outlook, чтобы принудительно отформатировать изображения на верхний и нижний, но он не работает должным образом, поэтому я надеюсь, что здесь есть трюк HTML или VBA, которого мне не хватает.

Любая помощь будет оценена

With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .SentOnBehalfOfName = "email@email.com"
        .To = "email@email.com"

        .Subject = SubjectLine.Value
        .Attachments.Add filePath, olByValue, 0
        .HTMLBody = .HTMLBody _
            & "<B>Daily KPI:</B><br>" _
            & "<br><img src=" & "PhotoName_" & Format(Date, "mm-dd-yyyy") & ".png' .WrapFormat.Type = 4>" _
        .Attachments.Add filePath

        .display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With