Frage zu Quelltext

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Leere Zeilen im Excel löschen"