• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 942
  • Last Modified:

Paste image from Delphi app into Excel

Hi folks,

I'm fairly new to OLE, so bare with me.  My terminology propbably leaves a lot to be desired :)

I've created an app which basically dumps a heap of formatted data into a speadsheet.  I'd like to include a few bitmaps which I create dynamically as well (but do not want to save them to disk).

Is it possible to stream a TBitmap to Excel use OLE and put it in a given range?

If it's not possible to do via a stream, is it possible to just paste it in (put the bitmap in to the clipboard, then paste it using VBA or something)?

I do not want to save the image to file first.

Any help greatly appreciated!

Cheers,

Stuart.
0
Stuart_Johnson
Asked:
Stuart_Johnson
  • 2
  • 2
1 Solution
 
calinutzCommented:
The pictures that you want to paste to Excel exist somewhere... don't they? So why saving them again on disk if they already are there... I suggest you to try copying to the clipboard and paste them where you need them. I did not try it yet but it should work with copy/paste.

Also try recording a macro for inserting a picture in excel and from the macro learn how it works and then automate it.
There are a lot of examples out there on how to automate excel

regards
0
 
Stuart_JohnsonAuthor Commented:
The picture is generated in-memory by my program, so it doesn't exist anywhere else.

I am trying to work out how to do the copy/paste.  I can not find an example on doing it with a graphic which is why I was asking here.

Cheers.

Stuart.
0
 
GabeinOZCommented:
Hey Stu,

I've done something similar to the second idea you floated but I can't find the code anywhere right now...  Basically I pushed the TBitmap to the Windows clipboard and then had a small bit of VBA that I would call through an Excel OLE object that would pull that down and insert it.... If I remember correctly it wasn't extremely fast and I could never figure out which side it was on but I had my suspicions that it was on the VBA side.

Anyway drop me a line on my hotmail at "gabenick" when you get a chance to let me know how you're doing!  Been a long time since we talked :)

Peace,
Gabe
0
 
Stuart_JohnsonAuthor Commented:
Hey Gabe dude.  How's it going?

I've sort of got this going with a bit of VBA already, but I'm not overly happy with it.  When the image gets pasted into the cell, I get a warning that the dimensions of the object being pasted is larger than the target cell (or something like that).  I'm trying to find out how to paste without showing the error message more than anything else.

Will drop you an email over the weekend.  I'm as busy as a one legged man in an arse kicking contest at the moment.

Cheers dude,

Stu.

(PS.  How come you're still GabeinOZ?  You should be GabeInUS now LOL )
0
 
GabeinOZCommented:
Yeah I was thinking about changing it but then I would lose all this mojo I have built up under that name and I'm gonna be back in Oz within the next couple months so its a moot point now :)

Anyway, if I remember correctly I had the same issue you are describing with the error message and what I did was calculated the cell(s) size that I wanted to paste into and pre-selected that area in the VBA before the paste and it didn't throw the message.  Its the same as if you highlight 4 cells and do a copy and then highlight a three cell area and try to paste, it will throw the same error but if you highlight a 4 cell area (or just a single cell) it will let you paste all four copied cells fine.  Hope that helps... :)

Later mate..
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now