...157...


Bereich als *.gif abspeichern
Sub gif2()
  Sheets(1).Range("A1:C5").CopyPicture _
                 Appearance:=xlScreen, _
                 Format:=xlPicture
  Sheets(2).Paste
End Sub

by Philipp von Wartburg

 

Thread:

http://groups.google.ch/groups?dq=&hl=de&threadm=3cc9bc5a_2%40news.bluewin.ch&prev=/groups%3Fhl%3Dde%26group%3Dmicrosoft.public.de.excel