Diagramm importieren
03.12.2003 08:20:13
Marcel
ich habe immer noch folgendes Problem: Ich will 2 Diagramme aus 2 unterschiedlichen Exceldateien in ein anderes Blatt kopieren. In einem anderen Forum konnte man mir nicht helfen. Hier habe ich folgendes Makro gefunden, bekomme aber immer eine Fehlermeldung.
Laufzeitfehler '438'
Objekt unterstützt die oder Eigenschaft oder Methode nicht.
Sub DiagrammExportImport()
Dim pctDiagramm As Object
Sheets("Diagramm1").Export "test.gif"
Application.DisplayAlerts = False
Sheets("Diagramm1").Delete
Application.DisplayAlerts = True
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set pctDiagramm = ActiveSheet.Pictures.Insert("test.gif")
Kill "test.gif"
End Sub
Ich kenn auch die Einstellung, sich in mehreren Foren um Hilfe zu bemühen. Ist sonst nicht meine Art, aber ich benötige gaaaanz dringend Hilfe!!!!
Gruß Marcel
Anzeige