運行時錯誤'10041 Microsoft Excel無法粘貼數據

Question

我試圖複製Excel表格並將其作爲圖像複製到outlook boy中。我的代碼實際上工作，但只是當我一步一步地。 但是，當我剛剛運行它時出現錯誤，並顯示「運行時錯誤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