Copy Chart & Print Very Slow

I have created a code for printing specific charts on a "constant" page.

First of all the page is the same every time. It contains the same graph's (although with various data each time) and the same placement.

So when i make the page with graphs i also add a button with an attached macro.

This macro then shows an Userform where the user can decide which graph he would like to printout. I wan't specific headers and footers on the page, so the only thing i could make work is by copying the chart, and then place it in a new Chartsheet, then setting the header and footer and printing it out in the end. The code looks as follows:

Application. ScreenUpdating = False
On Error Resume Next
total = bruger + Varm + aar + varig 'the sub is called from another sub, so these are giving a value on beforehand
If bruger = 1 Then
'bruge pagesetup uden for chart object for at lave header og footer
Worksheets(sag).ChartObjects(1).Copy
Worksheets(sag).Paste
End If

Now everything works just fine, except it is really long time about doing this.

By testing i found out that the copying a chart takes alot of time in vba-code? Why is that? If i do it manually I don't have to wait for anything.

This is just a question of optimizing the code... Because i can't understand why it takes so long time with the VBA code!