Bild als Excel-Tabelle speichern
28.02.2005 14:54:04
Stefan
Ich wende den unterstehenden Code erfolgreich an. Wurde kürzlich meinem Kollegen in diesem Forum gezeigt. Jetzt habe ich noch eine Frage dazu. Wie könnte ich das chtPicture statt als .gif in eine neue leere Excel-Mappe kriegen und entsprechend abspeichern?
Grüsse
Stefan
Sub ExportWorksheetAsPicture()
Dim chtPicture As Chart
Dim strSheetName As String
Application.ScreenUpdating = False
strSheetName = ActiveSheet.Name
ActiveSheet.Range("A1:F20").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chtPicture = Charts.Add
chtPicture.Paste
chtPicture.Export ActiveWorkbook.Path & "\" & strSheetName & ".gif"
Application.DisplayAlerts = False
chtPicture.Delete
Application.DisplayAlerts = True
Set chtPicture = Nothing
Application.ScreenUpdating = True
End Sub
Anzeige