Herbers Excel-Forum - das Archiv

Frage zu Quelltext

Bild

Betrifft: Frage zu Quelltext
von: Stefan

Geschrieben am: 05.04.2005 15:12:51
Hallo Excelfreunde
Habe folgenden Quelltext in der Recherche gefunden:
--------------------------------
Sub Screenshot()
Dim wks As Worksheet
Dim cht As Chart
Dim iCounter As Integer
Dim sPath As String
sPath = Application.Path & "\"
For iCounter = 2 To Worksheets.Count
Set wks = Worksheets(iCounter)
wks.Range(wks.PageSetup.PrintArea).CopyPicture _
Appearance:=xlScreen, _
Format:=xlPicture
Set cht = Charts.Add
cht.ChartArea.Clear
On Error Resume Next
cht.Paste
On Error GoTo 0
cht.Export sPath & wks.Name & ".gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Next iCounter
sPath = Left(sPath, Len(sPath) - 1)
MsgBox "Die Grafiken wurden im Verzeichnis " & sPath & " gespeichert!"
End Sub

---------------------------------
Leider verursacht er bei mir folgenden Fehler:
Methode "Range" für das Objekt "_Worksheet" fehlgeschlagen
Weiss einer von Euch warum er diesen Fehler macht???
LG Stefan
Bild

Betrifft: AW: Frage zu Quelltext
von: Stefan
Geschrieben am: 05.04.2005 15:19:17
Hab die Antwort selbst gefunden...
Hatte nicht auf allen Tabellenblättern den Druckbereich festgelegt
LG Stefan
 Bild