Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 1
Default Snapshot function, 2003 to 2007

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.
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
bj bj is offline
external usenet poster
 
Posts: 1,397
Default Snapshot function, 2003 to 2007

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

"Brian T." wrote:

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.

  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 2,836
Default Snapshot function, 2003 to 2007

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 he
http://www.wabash.edu/econexcel/


--
RyGuy


"Brian T." wrote:

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.

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
when 2007 is installed side-by-side with 2003, open xls with 2003 rbyteme Setting up and Configuration of Excel 2 August 4th 07 01:44 AM
2003 and 2007 steve55 Excel Discussion (Misc queries) 1 August 3rd 07 11:11 AM
Excel 2003 to 2007 zil Excel Discussion (Misc queries) 0 May 25th 07 10:00 PM
2007 & 2003 Excel Velcroman Excel Discussion (Misc queries) 1 April 11th 07 01:26 PM
snapshot viewer print protection error alaskamtl Excel Discussion (Misc queries) 0 May 13th 05 09:10 PM


All times are GMT +1. The time now is 01:39 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"