VBA Sub ScreenShot() geht nicht
14.10.2007 16:51:42
Armin
habe wieder ein Problem, bin zwar schon weit gekommen mit suchen, aber dieser VBA Code
geht bei mir nicht und ich bin am verzweifeln. Es sollte eigentlich ein Gif von dem Druckbereich meiner Tabelle anlegen. Wenn ich das richtig verstehe. Wo muss ich nun noch meinen Pfad zur Ablage angebenl
Folgende Fehlermeldung
Laufzeitfehler 1004
Die Methode `Range` für das Objekt ´-Worksheet ist fehlgeschlagen
Bei diesem Code
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
Danke im Voraus
Armin
Anzeige