Thema: Druckbereiche als GIF-Grafiken exportieren

StandardModule: Modul1

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

Beiträge aus dem Excel-Forum zu den Themen Extern und Grafikexport