VBA在MailItem中调整粘贴的JPEG大小

我试图用Excel工作表发送VBA图片，但是我得到的大小非常小。

你现在怎么能把它变得更体面（基本上是整个屏幕？）

这里是代码：

Sub send_as_a_pic() 'Copy range of interest Dim r As Range Set r = Range("B2:O23") r.Copy 'Open a new mail item Dim outlookApp As Outlook.Application Set outlookApp = CreateObject("Outlook.Application") Dim outMail As Outlook.MailItem Set outMail = outlookApp.CreateItem(olMailItem) With outMail .To = "[e-mail]" .CC = "" .BCC = "" .Subject = "PAC 2017 sales up to date" End With 'Get its Word editor outMail.Display Dim wordDoc As Word.Document Set wordDoc = outMail.GetInspector.WordEditor 'To paste as picture wordDoc.Range.PasteAndFormat wdChartPicture 'With wordDoc.Range ' .LockAspectRatio = True ' .Top = wordDoc.Top ' .Left = wordDoc.Left '.Height = wordDoc.RowHeight 'End With End Sub 

非常感谢谁能帮助我！

Answer 1

这实际上很简单，在develloppez.comfind答案：

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

谢谢！