VBA在MailItem中調整粘貼的JPEG的大小

Question

我想從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 = "fernando.grespan@fernando.com" 
        .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.com：

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

謝謝！