VBA ChartObjects gif erstellen

23/01/2008 - 23:56 von FRANZ LUWEIN | Report spam
Hallo alle,

EXCEL 2002, SP3
Win XP Prof, SP 2 Build 2600

Ich habe ein (weiteres) Problem und bitte um Hilfe.

Diese beiden Code-Abschnitte werden unmittelbar
hintereinander ausgeführt aber nur von einen wird
ein Bild erstellt. Dabei ist entscheidend welcher
Teil (Heim oder Gast) zuerst abgearbeitet wird.
Der jeweils Zweite làuft ohne Fehlermeldung durch.
Was muss ich àndern, dass es endlich funktioniert?

Worksheets(SLName).Range(SLGast).CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Paste
ActiveSheet.ChartObjects(1).Chart.Export _
Filename:=Pfad & "gast.gif"
ActiveSheet.ChartObjects(1).Delete


Worksheets(SLName).Range(SLHeim).CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Paste
ActiveSheet.ChartObjects(1).Chart.Export _
Filename:=Pfad & "heim.gif"
ActiveSheet.ChartObjects(1).Delete



Ich bin für jeden Tipp dankbar.

Mit freundlichem Gruß

Franz Luwein
 

Lesen sie die antworten

#1 stefan onken
24/01/2008 - 09:11 | Warnen spam
On 23 Jan., 23:56, FRANZ LUWEIN wrote:
Hallo alle,

EXCEL 2002, SP3
Win XP Prof, SP 2 Build 2600

Ich habe ein (weiteres) Problem und bitte um Hilfe.

Diese beiden Code-Abschnitte werden unmittelbar
hintereinander ausgeführt aber nur von einen wird
ein Bild erstellt. Dabei ist entscheidend welcher
Teil (Heim oder Gast) zuerst abgearbeitet wird.
Der jeweils Zweite làuft ohne Fehlermeldung durch.
Was muss ich àndern, dass es endlich funktioniert?

Worksheets(SLName).Range(SLGast).CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Paste
ActiveSheet.ChartObjects(1).Chart.Export _
Filename:=Pfad & "gast.gif"
ActiveSheet.ChartObjects(1).Delete

Worksheets(SLName).Range(SLHeim).CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Paste
ActiveSheet.ChartObjects(1).Chart.Export _
Filename:=Pfad & "heim.gif"
ActiveSheet.ChartObjects(1).Delete

Ich bin für jeden Tipp dankbar.

Mit freundlichem Gruß

Franz Luwein



hallo Franz,
am Ende des oberen Teils hast du
ActiveSheet.ChartObjects(1).Delete
und 2 Zeilen weiter dann
ActiveSheet.ChartObjects(1).Activate

kann es sein, dass du dann kein ChartObjekt mehr auf der Tabelle hast?
Hast du im Code irgendwo On Error Resume Next? Das versteckt dann
Fehlermeldungen bei solchen Fehlern.

Gruß
stefan

Ähnliche fragen