Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
File size gets huge on photo insert
I have a picture box with the following code:
Private Sub Image1_Click() FileToOpen = Application.GetOpenFilename( _ "All Files (*.jpg),*.jpg,(*.bmp),*.bmp") If FileToOpen < False Then Worksheets("Sheet1").OLEObjects("Image1").Object.P icture _ = LoadPicture(FileToOpen) End If End Sub The file contains four sheets, and has a file size of 224 KB. When I insert a photo with a file size of 129 KB into the photobox and save the Excel file, the Excel file size balloons to 4.00 MB. If I insert a second photo, it goes up over 9 MB. Anybody know what is causing this, and how can I fix it? Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
File size gets huge on photo insert
mooresk257 wrote:
I have a picture box with the following code: Private Sub Image1_Click() FileToOpen = Application.GetOpenFilename( _ "All Files (*.jpg),*.jpg,(*.bmp),*.bmp") If FileToOpen < False Then Worksheets("Sheet1").OLEObjects("Image1").Object.P icture _ = LoadPicture(FileToOpen) End If End Sub The file contains four sheets, and has a file size of 224 KB. When I insert a photo with a file size of 129 KB into the photobox and save the Excel file, the Excel file size balloons to 4.00 MB. If I insert a second photo, it goes up over 9 MB. Anybody know what is causing this, and how can I fix it? I have seen this before in some versions of Word and Excel. The problem seems to arise only when you load an image in a particular way onto a preexisting image location. It generates persistent orphanned OLE metafile resources which are huge. The worst one I ever saw was over 60MB in size and contained just 4MB of valid image data. Documents that have been editted repeatedly with more than one version of Office seem to be the most often afflicted. There is a misleading MSKB entry that describes the problem. I can't find the right one at the moment, but the one describing a related PowerPoint to Word conversion OLE overhead is closely related to your problem. http://support.microsoft.com/kb/912676/en-us Regards, Martin Brown |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
File size gets huge on photo insert
I've compressed the image down to 23 KB, and file size still jumps from 233
KB to 4 MB on insert. "joel" wrote: You need to compress the quality of the picture. I usually do this by e-mail the picture to myself using the following technique go to the picture using window explorer and select all the pictures. then right click on selected items and choose Send To - Mail Recipient. then when the option to make smaller comes up I select make smaller. Once the picture is loaded into email you can then save attachments. The insert the smaller image into the picture box. "mooresk257" wrote: I have a picture box with the following code: Private Sub Image1_Click() FileToOpen = Application.GetOpenFilename( _ "All Files (*.jpg),*.jpg,(*.bmp),*.bmp") If FileToOpen < False Then Worksheets("Sheet1").OLEObjects("Image1").Object.P icture _ = LoadPicture(FileToOpen) End If End Sub The file contains four sheets, and has a file size of 224 KB. When I insert a photo with a file size of 129 KB into the photobox and save the Excel file, the Excel file size balloons to 4.00 MB. If I insert a second photo, it goes up over 9 MB. Anybody know what is causing this, and how can I fix it? Thanks! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
File size gets huge on photo insert
That's interesting. I'm using form controls. I wonder if the problem is
specific to OLE form controls or if the same issue would occur with an ActiveX control. I guess I'll experiment. I'm new to VBA, and although I had a class on VB 6, that was a long time ago... "Martin Brown" wrote: mooresk257 wrote: I have a picture box with the following code: Private Sub Image1_Click() FileToOpen = Application.GetOpenFilename( _ "All Files (*.jpg),*.jpg,(*.bmp),*.bmp") If FileToOpen < False Then Worksheets("Sheet1").OLEObjects("Image1").Object.P icture _ = LoadPicture(FileToOpen) End If End Sub The file contains four sheets, and has a file size of 224 KB. When I insert a photo with a file size of 129 KB into the photobox and save the Excel file, the Excel file size balloons to 4.00 MB. If I insert a second photo, it goes up over 9 MB. Anybody know what is causing this, and how can I fix it? I have seen this before in some versions of Word and Excel. The problem seems to arise only when you load an image in a particular way onto a preexisting image location. It generates persistent orphanned OLE metafile resources which are huge. The worst one I ever saw was over 60MB in size and contained just 4MB of valid image data. Documents that have been editted repeatedly with more than one version of Office seem to be the most often afflicted. There is a misleading MSKB entry that describes the problem. I can't find the right one at the moment, but the one describing a related PowerPoint to Word conversion OLE overhead is closely related to your problem. http://support.microsoft.com/kb/912676/en-us Regards, Martin Brown |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
File size gets huge on photo insert
mooresk257 wrote:
That's interesting. I'm using form controls. I wonder if the problem is specific to OLE form controls or if the same issue would occur with an ActiveX control. I guess I'll experiment. I'm new to VBA, and although I had a class on VB 6, that was a long time ago... Try doing it by hand and you will find that certain sequences cause this huge size effect whereas others do not. In VBA it is much harder to avoid having this problem - most permutations generate oversized files. Regards, Martin Brown |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
File size gets huge on photo insert | Excel Programming | |||
Help- Insert text if photo file not available | Excel Discussion (Misc queries) | |||
Huge increase in file size | Excel Discussion (Misc queries) | |||
File size is huge | Excel Programming | |||
Huge File size after import | Excel Programming |