Copy Paste Chart

[rhombus4]

When I step through the code below, it works fine, however when I run the code it seems to run forever and I get an error on the ActiveSheet.Paste line

Run-time error '1004': Paste method of worksheet class failed

Sub Copy_Paste_Chart()
Worksheets("Sheet1").ChartObjects("Chart 1").CopyPicture xlScreen, xlPicture

Worksheets("Sheet2").Select
Cells(4, 3).Select
ActiveSheet.Paste

With ActiveSheet
  With .Shapes(.Shapes.Count)
    .Name = "chtName1"
  End With
End With

End Sub

 

[Domenic]

Does this help?

Sub Copy_Paste_Chart()

    Worksheets("Sheet1").ChartObjects("Chart 1").CopyPicture xlScreen, xlPicture
    
    With Worksheets("Sheet2")
        .Paste
        With .Shapes(.Shapes.Count)
            .Name = "chtName1"
            .Left = .Parent.Cells(4, 3).Left
            .Top = .Parent.Cells(4, 3).Top
        End With
        .Select 'optional
        .Cells(1).Select 'optional
    End With

End Sub

 

[rhombus4]

Thanks.

Although I'm confused as the initial code I posted now works

Not sure whether it was an issue with my excel yesterday, I even created a new workbook and same thing happened. No idea what caused it.

Something similar happened when was trying to copy formatting from one chart to another but that now works

Sub CopyFormatofCharts()
'Can Take Ages to Run with error
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Copy
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.PasteSpecial Format:=2
End Sub

 

[Domenic]

It's probably a timing issue, that's why my code avoids having to select the worksheet and cell before pasting the chart. Did you try my code? If so, did it work?

 

[rhombus4]

Yes. Both codes worked

Yours was better than mine ??