エクセルからOutlookのメールを作成

質問

エクセルからOutlookのメールを作成しているのですが、エクセルの表を画像として貼り付けたところファイルサイズが異常に大きくなってしまいました。

マクロは以下のようなものです。

Sub メール作成()
Set App = CreateObject("Outlook.Application")
Set objMAIL = App.CreateItem(0)

With objMAIL
.Display
.BodyFormat = 3
Set Doc = .GetInspector.WordEditor
End With

ThisWorkbook.Worksheets("雛形シート").Range("A5:K35").CopyPicture
Doc.Characters.Last.Paste
Application.CutCopyMode = False

End Sub

このマクロで作成するとメールのサイズが2MBになってしまいます。
同じ作業を手動で行うと100kb以内になります。
どうにかファイルサイズを小さくする方法はないでしょうか。

回答No.1

kawais070 · ベストアンサー

PasteのかわりにPasteSpecialを使ったらいいかも。
https://msdn.microsoft.com/ja-jp/library/office/ff191763.aspx

PasteSpecialの引数のDataTypeはwdPasteBitmapがいいかな？いろいろ試してみて。
https://msdn.microsoft.com/ja-jp/library/office/ff197265.aspx

お礼

回答ありがとうございます。うまくいきました。
Bitmapだとサイズが2MBのまま変わらなかったので、wdPasteOLEObject
（OLE オブジェクト）にしたらちょうどいい感じに仕上がりました。

回答No.2

osahune

>ThisWorkbook.Worksheets("雛形シート").Range("A5:K35").CopyPicture

ThisWorkbook.Worksheets("雛形シート").Range("A5:K35").Copy

・・・ではダメですか？

お礼

回答ありがとうございます。
普通のコピペだと見栄えがよろしくないので他の方法を探っていました。
結局PasteSpecialで対応できました。