実行時エラー '10041 Microsoft Excelでデータを貼り付けることができません

Question

Excelの表をコピーして、画像としてOutlookの少年にコピーしようとしています。私のコードは実際には動作しますが、私はそれをステップバイステップで行います。 しかし、私はちょうどそれを実行するとエラーが表示され、 "ランタイムエラー '10041 Microsoft Excelは、データを貼り付けることができません"命令 "Set p = ActiveSheet.Pictures.Paste"メッセージを表示します。 これはなぜ起こるのでしょうか？正しい提案はありますか？

Sub Macro1() 

Dim r As Range 
Set r = Range("A1:Q64") 
r.Copy 

Dim p As Picture 
Set p = ActiveSheet.Pictures.Paste 
p.Cut 

Dim outlookApp As Object 
Set outlookApp = CreateObject("Outlook.Application") 
Dim outMail As Object 
Set outMail = outlookApp.CreateItem(olMailItem) 


outMail.display 
Dim wordDoc As Object 
Set wordDoc = outMail.GetInspector.WordEditor 
wordDoc.Range.PasteAndFormat wdChartPicture 

Dim shp As Object 
    For Each shp In wordDoc.InlineShapes 
    shp.ScaleHeight = 70 
    shp.ScaleWidth = 70 
    Next 

Set outMail = Nothing 
Set OutApp = Nothing 

End Sub 

Answer 1

の代わりにこの：

Dim r As Range 
Set r = Range("A1:Q64") 
r.Copy 

Dim p As Picture 
Set p = ActiveSheet.Pictures.Paste 
p.Cut 

これを試してみてください：

Dim r As Range 
Set r = Range("A1:Q64") 
r.CopyPicture 

あなたの範囲の画像を他のアプリケーションが利用できるクリップボード、になりました。

CopyPicture方法は、あなたには、いくつかの微調整が必​​要な場合には、オプションのパラメータを取ります：

CopyPicture method