Soru Run-Time Error:1004 Worksheet sınıfının pastespecial yöntemi başarısız

[ruyaaaa]

Merhaba, exceldeki bir grafiği resim olarak kopyalamak için aşağıdaki kodu yazdım, bu hatayı alma sebebim nedir? Teşekkürler..
Sub pastespecial1()
ActiveChart.ChartArea.copy
Range("H2").Select
ActiveSheet.pastespecial Format:="Picture (PNG)", Link:=False, _
DisplayAsIcon:=False
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.

Sub pastespecial1()
    ActiveChart.ChartArea.Copy
    Range("H2").Select
    ActiveSheet.Pictures.Paste.Select
End Sub

 

[ruyaaaa]

Merhaba.
Aşağıdaki kodu deneyin.

Sub pastespecial1()
    ActiveChart.ChartArea.Copy
    Range("H2").Select
    ActiveSheet.Pictures.Paste.Select
End Sub

Teşekkürler oldu