VBA圖表對象 - 1004錯誤

Question

我有一個寫入的宏，複製一定範圍的圖片並將其複製到圖表對象中。代碼完美的工作，但是當我增加範圍的大小時，我得到運行時間1004錯誤「應用程序定義或對象定義的錯誤」。即......我將U40更改爲U50。

有沒有人看到我失蹤的問題，那可能會導致這個錯誤？

Sub RangePicSales() 
With Worksheets("Dashboard").Range("F8:U40") 
    .CopyPicture xlScreen, xlBitmap 
    With ActiveSheet.ChartObjects.Add(.Left, .Top + .Height + 1, .Width, .Height).Chart 
     .Paste 
     With .Shapes(1) 
      .Placement = xlMove 
      .Left = -4 
      .Top = -4 
     End With 
     .Export Filename:="RemovedFilePathForPost\WeeklySalesDashboard.png", Filtername:="PNG" 
     .Parent.Delete 
    End With 
End With 

末次

Answer 1

不能解釋爲什麼但是這工作得更好 - 是與調整圖表與試圖以合適的規模來創建它...

Sub Tester() 
Dim rng, co As Object, cht As Chart 

    Set rng = ActiveSheet.Range("A1:M1000") 
    rng.CopyPicture appearance:=xlScreen, Format:=xlBitmap 

    Set co = ActiveSheet.ChartObjects.Add(1, 1, 100, 100) 
    With co 
     .Width = rng.Width 
     .Height = rng.Height 
     .Chart.Paste 
     .Chart.Export Filename:="C:\_Stuff\tester2.png", Filtername:="PNG" 
     .Delete 
    End With 

End Sub 

我能夠導出A1的圖片：M1000