изменить ширину изображения при экспорте таблицы в outlook - PullRequest
Новая
       15

изменить ширину изображения при экспорте таблицы в outlook

0 голосов
/ 01 апреля 2019

Я использую приведенный ниже код VBA для экспорта таблицы в формате JPEG:

Я хочу исправить ширину рендеринга.

См. Оригинал:

https://i.imgur.com/ukdO2ho.png

экспортировано:

https://i.imgur.com/XsUMsRR.jpg

Код: 

Sub ExportAsImage(ByVal objSheet As Excel.Worksheet, ByRef n As Long)
Dim objRange As Excel.Range
Dim objThisWorksheet As Excel.Worksheet
Dim objFileSystem As Object
Dim strTempFolder, strImageName, strImageFile As String
Dim objOutlookApp As Outlook.Application
Dim objNewMail As Outlook.MailItem

'Copy the table
Set objRange = objSheet.UsedRange
objRange.CopyPicture

'Export the table as JPG image
strImageFile = "C:\Users\one\Desktop\Table " & n & ".jpg"
With objSheet.ChartObjects.Add(objRange.Left, objRange.Top, objRange.Width, objRange.Height)
    .Activate
    .Chart.Paste
    .Chart.Export strImageFile, "JPG"
End With

objSheet.ChartObjects(objSheet.ChartObjects.Count).Delete

End Sub

...