Hat jemand Excel2003 und könnte...
16.02.2004 11:55:09
Andreas Walter
Ich habe ein Problem mit Excel 2003 - Microsoft sagt, sie können es nicht nachvollziehen. Ich versuche daher herauszufinden, ob es nur bei mir vorkommt.
Dauert 5 Minuten.
- Excel 2003 starten.
- den Buchstaben "x" in Feld A1 in Tabelle1 eintragen
- ALT-F11 (wechsel in Microsoft Visual Basic Entwichlungsmodus)
- Einfügen / Modul
- Folgende Quelle (per cut und Paste) eingefügen
Option Explicit
Sub SchiessBild2()
Dim strTempShape As String
Dim strCurrentSheet As String
On Error Resume Next
Kill ("Ausgabe.gif")
On Error GoTo 0
strCurrentSheet = ActiveSheet.Name
Range("A1").Select
Selection.Range("A1").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Selection.SpecialCells(xlCellTypeLastCell).Select
Selection.Offset(1, 1).Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
strTempShape = Selection.Name
ActiveSheet.Shapes(1).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.Location Where:=xlLocationAsObject, Name:=strCurrentSheet
ActiveChart.HasLegend = False
ActiveWindow.Visible = False
ActiveSheet.Shapes(1).Copy
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.Paste
Application.CutCopyMode = False
' Bei Excel 2003 steigt das Makro bei folgendem Befehl aus
ActiveSheet.ChartObjects(1).Chart.Export Filename:="Ausgabe.gif", FILTERNAME:="GIF"
' Die Fehlermeldung lautet
' Laufzeitfehler 1004
' Anwendungs- oder objektdefinierter Fehler
ActiveSheet.ChartObjects(1).Delete
ActiveSheet.Shapes(strTempShape).Delete
End Sub
- Entwicklungsmodus verlassen ("x" oben rechts)
- ALT-F8 und das Makro starten
Was passiert? Läuft das Mkro durch oder steigt es mit 1004 Fehlermeldung aus?
Bei mir
- Es bleibt mit der angegebenen Fehlermeldung bei folgender Zeile stehen
ActiveSheet.ChartObjects(1).Chart.Export Filename:="Ausgabe.gif", FILTERNAME:="GIF"
Danke für die Mühe
Andreas Walter