Diagramm kopieren und als Diagramm einfügen

Bild

Betrifft: Diagramm kopieren und als Diagramm einfügen
von: Andreas Schilling
Geschrieben am: 09.10.2015 10:44:50


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

Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Beverly
Geschrieben am: 09.10.2015 14:48:47
Hi Andreas,

    ActiveWorkbook.Worksheets("Tabelle1").ChartObjects(1).Copy
    Workbooks("ACMM_KPI.xlsb").Worksheets("Chart").Paste



Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Andreas Schilling
Geschrieben am: 13.10.2015 10:13:30
Hallo,
die Lösung ist gut aber leider funktioniert sie bei mir auch nur bei manueller Ausführung.
Wenn ich das Skript dann automatisch durchlaufen lasse steigt er bei "Workbooks("ACMM_KPI.xlsb").Worksheets("Chart").Paste" aus.
Hab irgendwie keine Ahnung warum es manuell geht aber automatisch nicht.
Hast du eine Idee?
Grüße
Andreas

Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Beverly
Geschrieben am: 13.10.2015 13:55:27
Hi Andreas,
und was sagt der Debugger genau?




Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Andreas Schilling
Geschrieben am: 13.10.2015 14:36:36
Der Debugger sagt folgendes:
Laufzeitfehler `1004`:
Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Hast du eine Idee?
Grüße
Andreas

Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Beverly
Geschrieben am: 13.10.2015 15:29:22
Hi Andreas,
ich habe den Code extra nochmal mit Excel2002 (XP) getestet und erhalte keine Fehlermeldung. Ist die Tabelle vielleicht geschützt?




Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Andreas Schilling
Geschrieben am: 14.10.2015 08:08:54
Hallo Karin,
Die Tabelle ist nicht geschützt. Nach dem der Debugger den Fehler meldet und ich auf debuggen klicke, kann ich das Skript mit F8 weiter ausführen ohne das der Debugger erneut meckert.
so einen Fehler habe ich auch noch nicht gehabt, bekomme ich aber auch irgend wie nicht hi :-(
Ich habe die Datei noch mal simpel nachgebaut um nur das diagram mzu kopieren.
Bekomme aber trotzdem die Fehlermeldung.
Userbild
Userbild
Grüße
Andreas

Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Beverly
Geschrieben am: 14.10.2015 09:44:36
Hi Andreas,
das kann ich leider nach wie vor nicht nachvollziehen und dir somit auch keine Lösung anbieten.




Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Andreas Schilling
Geschrieben am: 14.10.2015 10:19:24
Hallo Karin,
Kennst du denn vielleicht eine Möglichkeit bei dem folgenden Ablauf anslelle des Picture.Paste die Grafik einzufügen und nicht als Bild?

Public Sub Grafik_Kopieren_Test()
     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
Viele Grüße
Andreas

Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Beverly
Geschrieben am: 14.10.2015 12:29:39
Hi Andreas,
nicht dass ich wüsste.




Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Andreas Schilling
Geschrieben am: 14.10.2015 12:33:44
Hab jetz in der Zwichensablage gesehen, dass die Dateien die vom Makro kopiert werden ein anderes Zeichen haben als wenn ich die von Hand "Strg + C" kopiere.
Liegt es vielleicht daran, dass das Makro nicht durchläuft?
Userbild
Das untere Element wurde vom Makro in die Zwischenablage kopiert und das obere von mir.
Grüße
Andreas

Bild

Betrifft: AW: Diagramm kopieren und als Diagramm einfügen
von: Andreas Schilling
Geschrieben am: 14.10.2015 12:33:45
Hab jetz in der Zwichensablage gesehen, dass die Dateien die vom Makro kopiert werden ein anderes Zeichen haben als wenn ich die von Hand "Strg + C" kopiere.
Liegt es vielleicht daran, dass das Makro nicht durchläuft?
Userbild
Das untere Element wurde vom Makro in die Zwischenablage kopiert und das obere von mir.
Grüße
Andreas

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Diagramm kopieren und als Diagramm einfügen"