Excel VBA grafiek met opmaak plakken (fout 1004)

[estherbraamt]

Hallo,

Ik wil iets doen wat eigenlijk heel eenvoudig moet zijn en wat zelfs via de marcro-opnemer kan, maar ik krijg het niet voor elkaar.
Ik wil een grafiek kopiëren van het ene excelbestand naar het andere excelbestand met behoud van opmaak.

Dit zou moeten kunnen met:

[ActiveSheet.Paste Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False]]

Maar ik blijf maar foutmelding 1004 krijgen (Door de toepassing of het object gedefinieerde fout). Ik heb al van alles geprobeerd en gezocht, maar krijg het niet voor elkaar. Ik heb al ergens gevonden dat het te maken heeft met mijn "ActiveSheet", maar ik weet niet hoe het dan wel zou moeten.

Als iemand me zou willen helpen dan alvast heel erg bedankt!

Mijn code (voor dit gedeelte van de macro) is:

[Workbooks("doc.xlsx").Sheets("Grafiek").Activate
Windows("doc2.xlsx").Activate
Sheets("Blad1").Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell.Offset(2, 0).Select
'ActiveSheet.Paste (hiermee lukt het maar dan zonder de juiste opmaak)
ActiveSheet.Paste Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False]

 

[VenA]

Probeer het zo eens

Sub VenA()
  Workbooks("doc.xlsx").Sheets("Grafiek").ChartObjects("Grafiek 1").Chart.ChartArea.Copy
  Workbooks("doc2.xlsx").Sheets("Blad1").[d4].PasteSpecial
End Sub

 

[estherbraamt]

Hallo V&A,

Het is gelukt! Heel erg bedankt voor je hulp!!

Maco's kunnen zo leuk zijn als het lukt

Groetjes!

 

[VenA]

Graag gedaan.

Macro's zijn pas leuk als je de werking ervan begrijpt.