http://www.ken3.org/vba/backno/vba183.html
の
VBA Outlook リッチテキスト形式のメール で グラフを送る
ですが、
昔作成したサンプルなので、
Office2010からメニューがリボンになったので、
貼り付けが動かないみたいです。
下記のサイトで指摘されてたり(なんか恥ずかしいぉぃぉぃ)
https://answers.microsoft.com/ja-jp/office/forum/office_2010-excel/excel/cf4473d2-feef-430d-8005-74cd3cf61983
とりあえず、動かすには、上記サイトの回答例を使わせていただくと
With Ap.ActiveInspector
'貼り付け
.WordEditor.Windows(1).Selection.Paste
End With
貼り付けの部分
'Outlook貼り付けのコマンドをコマンドバーから探す
を
Set oApp = CreateObject("Outlook.Application")
で起動しているので、
With oApp.ActiveInspector '貼り付け .WordEditor.Windows(1).Selection.Paste End With
にすると、動くのかな?
検索しただけで、試していませんが、解決の糸口となれば幸いです。
三流プログラマー Ken3