Save range in a new workbook as .gif

[Pinokkio]

This is the macro :

Please Login or Register  to view this content.

Is there a way to get the range to a new pic?

Range("B2:054").Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture

thanks,

P.

[Leith Ross]

Hello Pinokkio,

It is quite easy to do.

Please Login or Register  to view this content.

[Pinokkio]

thanks for replay,

I get a message:
Methode range to object-global failed
and this on : Range("B2:054").copy

Work with Excel2007?

[Leith Ross]

Hello pinokkio,

I developed the macro using Excel 2003 and it ran fine. If you are using Excel 2007 then I can't say for sure it will work the same.

[Pinokkio]

I've already found that sum macros don't work with xl2007.

Another question: can this macro written shorter?

Please Login or Register  to view this content.

[Pinokkio]

The macro problem solved by naming a range.

Please Login or Register  to view this content.