ここから本文です

Excelからシート上選択された部分をコピーし、 Outlookのメール本文に図として貼...

kno********さん

2018/5/3022:00:03

Excelからシート上選択された部分をコピーし、
Outlookのメール本文に図として貼り付けるマクロを作成していますが、
貼り付けた図が縮小されてしまいます。

図の縦横比は固定、倍率を100%に直したい。
下記、どこを書き加えれば良いでしょうか。
ちなみにマクロはExcelブック(xlsm)で実行するものとする。
---------------------------------------------
Option Explicit

Public Sub Sample()
Const olMailItem = 0
Const olFormatRichText = 3
Const olEditorWord = 4

Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture '図としてコピー
With CreateObject("Outlook.Application")
With .CreateItem(olMailItem)
.BodyFormat = olFormatRichText
.Display
With .GetInspector
If .IsWordMail = True And .EditorType = olEditorWord Then
.WordEditor.Windows(1).Selection.Paste
End If
End With
End With
End With
End Sub

閲覧数:
88
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

fro********さん

2018/5/3110:00:27

こんな感じでしょうか

Option Explicit

Public Sub Sample()
Const olMailItem = 0
Const olFormatRichText = 3
Const olEditorWord = 4

With Selection 'ここから追加
.CopyPicture
ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height).Name = "貼付用"
End With
With ActiveSheet.ChartObjects("貼付用")
.Chart.Paste
.Select
End With
ActiveChart.ChartArea.Copy 'ここまで追加

With CreateObject("Outlook.Application")
With .CreateItem(olMailItem)
.BodyFormat = olFormatRichText
.Display
With .GetInspector
If .IsWordMail = True And .EditorType = olEditorWord Then
.WordEditor.Windows(1).Selection.Paste
End If
End With
End With
End With
End Sub

この質問は投票によってベストアンサーに選ばれました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる