Frage zu Quelltext
05.04.2005 15:12:51
Stefan
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