Diagramm kopieren und als Diagramm einfügen
09.10.2015 10:44:50
Andreas
Hallo An Alle,
hab mal wieder ein Problem und hoffe das ich hier Hilfe finde.
Ich möchte Diagramm von eine Excel in eine andere mit VBA kopieren udn einfügen.
Nur möchte ich das Diagram nicht als Bild sondern als Diagramm einfügen.
Mein Code Schnipsel funktioniert bei manueller ausführung gut aber beim Automatischen Durchlauf bricht er bei "ActiveSheet.Paste" ab.
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Copy
Windows("ACMM_KPI.xlsb").Activate
Cells(26, 2).Select
ActiveSheet.Paste
Der folgende Code fügt es leider nur als Bild ein.
Public Sub Graf()
Dim objShape As Object
ActiveWorkbook.Worksheets("Tabelle1").ChartObjects(1).Copy
Set objShape = Workbooks("ACMM_KPI.xlsb").Worksheets("Chart").Pictures.Paste
With objShape
.Top = Range("F7").Top
.Left = Range("F7").Left
'.Height = 50
'.Width = 50
End With
End Sub
Hat Jemand eine Idee wie ich das lösen kann?
Vielen Dank im Voraus und Grüße
Andreas
