Hallo zusammen!
Ich möchte Range("A1:G24") als .gif datei speichern.
Folgendes habe ich versucht:
Range("A1:G24").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
"C:\Excel\test.xls", _
FileFormat:=xlNormal, Password:="test", WriteResPassword:="test", _
ReadOnlyRecommended:=False, CreateBackup:=False
die neu Test.xls ist 100KB, es ist zugroß,
wie ist möglich direkt das bild als Test.GIF speichern.
Das gaze ist eine alternative zu Test.pdf da geht es nicht.
Danke und Gruß
EL