XXXXXさんへ VBA Outlook グラフ送信について

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