Snapshot function, 2003 to 2007

[Brian T.]

I recently upgraded from Excel 2003 to Excel 2007. I have a workbook that
has a bunch of macros set up to take snap shots of a certain range of cells.
For example:

Sheets("RT Recap").Range("Q80:X110").Select
SaveName = "\\Directory\" & Sheets("Charts").Range("stringdate").Value &
"file_name"
Call GIF_Snapshot(SaveName)

This would take a snapshot of whatever was in the cell range Q80 to X110,
save it to a specific directory, append a date to the beginning, and save it
as a .gif.

When using this in 2003, the image size is retained to be exactly how large
it is in the workbook. In 2007, it shrinks the image to a thumbnail.

Is there a setting somewhere that will tell Excel to retain the original
size of the cell range?

Thank you.

 

[bj]

It soulnds like a used defined function. we proablay can't help you without
knowing what is in the function

 

[ryguy7272]

Does this help?

Sub TakePictureMC()
Application.ScreenUpdating = False
' Take the picture
Range("c5:i19").CopyPicture Appearance:=xlScreen, Format:=xlPicture

' Find out where to put it
Dim myPictureRow As Integer
Dim myNumberPictures As Integer
For Each p In ActiveSheet.Pictures
' the column number is how it tracks the number of pictures in that column
If p.TopLeftCell.Column = 3 Then myNumberPictures = myNumberPictures
+ 1
Next
myPictureRow = 25 + 18 * myNumberPictures
' Select the cell where it will be pasted
ActiveSheet.Cells(myPictureRow, 3).Select
' Paste and format the picture
ActiveSheet.Paste
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 42
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Application.ScreenUpdating = True
' Take the user there
ActiveSheet.Cells(myPictureRow, 3).Select
End Sub

I found it online; I think here:
http://www.wabash.edu/econexcel/