调整 MailItem 中粘贴的 JPEG 的大小
Resize a pasted JPEG in a MailItem
我正在尝试从 Excel sheet 发送图片,但尺寸非常小。
如何获得合适的尺寸(基本上是整个屏幕)?
代码如下:
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
其实很简单,在develloppez.com上找到答案:
For Each shp In wordDoc.InlineShapes
shp.ScaleHeight = 90
shp.ScaleWidth = 90
Next
谢谢!
我正在尝试从 Excel sheet 发送图片,但尺寸非常小。
如何获得合适的尺寸(基本上是整个屏幕)?
代码如下:
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
其实很简单,在develloppez.com上找到答案:
For Each shp In wordDoc.InlineShapes
shp.ScaleHeight = 90
shp.ScaleWidth = 90
Next
谢谢!