Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
store SHAPE-Object on disk
Hello,
I have an Excel sheet with one or more shape objects (pictures). I need to programm a little VBA-routine to extract these pictures form the sheet and store them on disk. I already know how to extract the SHAPES: Dim varPicture As Shape For Each varPicture In ActiveSheet.Shapes varPicture.Select Next varPicture I even know how to store them in the clipboard-device: varPicture.CopyPicture But how can I store them on disk. What doesn't work (but explains my problem well): varPicture.savetofile "c:\myPic.bmp" Who knows better? Heiko |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
store SHAPE-Object on disk
I haven't tried it, but save a copy of your worksheet as html and I believe
the shapes will be saved as separate GIF files. -- Regards, Tom Ogilvy "Heiko Schmidtke" wrote in message ... Hello, I have an Excel sheet with one or more shape objects (pictures). I need to programm a little VBA-routine to extract these pictures form the sheet and store them on disk. I already know how to extract the SHAPES: Dim varPicture As Shape For Each varPicture In ActiveSheet.Shapes varPicture.Select Next varPicture I even know how to store them in the clipboard-device: varPicture.CopyPicture But how can I store them on disk. What doesn't work (but explains my problem well): varPicture.savetofile "c:\myPic.bmp" Who knows better? Heiko |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
store SHAPE-Object on disk
Well, think that works.
At least I was able to transfert the pics on disk, I could open them and I stored them on SQL-Server: Dim rst As New ADODB.Recordset Dim con As New ADODB.Connection Dim stm As New ADODB.Stream ActiveWorkbook.PublishObjects.Add("Page.htm", "Sheet", "", xlHtmlStatic, "Testname", "Testname").Publish (True) 'Store as HTML files + jpg-pics Set con = CurrentProject.Connection stm.Type = adTypeBinary stm.Open stm.LoadFromFile Pfad + "HTMLpage_image003.jpg" rst.Open "tbl_Pr_Ld", con, adOpenDynamic, adLockOptimistic rst.AddNew rst![Pr_Ld_Pic] = stm.Read rst.Update That works fine. But now I can no longer watch the pics in my Access-form. Do they have a wrong format. When transferred manually by Clipboard one can see the pics. Access simply doesn't show the pics! Regards, Heiko "Tom Ogilvy" schrieb im Newsbeitrag ... I haven't tried it, but save a copy of your worksheet as html and I believe the shapes will be saved as separate GIF files. -- Regards, Tom Ogilvy "Heiko Schmidtke" wrote in message ... Hello, I have an Excel sheet with one or more shape objects (pictures). I need to programm a little VBA-routine to extract these pictures form the sheet and store them on disk. I already know how to extract the SHAPES: Dim varPicture As Shape For Each varPicture In ActiveSheet.Shapes varPicture.Select Next varPicture I even know how to store them in the clipboard-device: varPicture.CopyPicture But how can I store them on disk. What doesn't work (but explains my problem well): varPicture.savetofile "c:\myPic.bmp" Who knows better? Heiko |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
shape object on a userform? | Excel Programming | |||
Saving embedded object to disk | Excel Programming | |||
How to tell wich object/shape was clicked | Excel Programming | |||
XL2000: Shape object events | Excel Programming | |||
Hyperlink within the TextFrame of Shape Object..? | Excel Programming |