How to paste a image into a VB UserFrame in Excel?

[Gaia]

Hi,
Is there anybody out there who could help me with pasting a picture from
ClipBoard into a VB form in Excel? I use excel 2003.

The function for copying a range is working; I use:
Worksheets("data").Range("b1:d3").CopyPicture xlScreen, xlBitmap

I have a form defined, but whatever I try, I can’t paste it into a form.

Anybody who could give me a hint?

 

[Joel]

Worksheets("data").Range("b1:d3").CopyPicture xlScreen, xlBitmap
Range("K6").Select
ActiveSheet.Paste

 

[Gaia]

Hi Joel,
Thanks for the quick replay.
But my problem is that I use shared Excel, hence I can’t paste an image into
the sheet. Therefore I want to use a UserForm which I could paste the image
into.
So I use the statement “Worksheets("data").Range("b1:d3").CopyPicture
xlScreen, xlBitmap†to copy a area of the sheet as a bitmap into clipboard,
and then I want to paste it into a userform. It is that pasting which does
not work. I have tried for hours; search the net, but without any success.

Your proposal works very well if my workbook is not shared.

BR,
Gaia

 

[Joel]

I'm not sure what type of userform you are using. If userform is a worksheet
shouldn't you be able to select the worksheet like a worksheet by using
sheets("Sheets").acitvate

If it is a VBA userform then where are you pasting the picture in the
userform. Inside some sort of box?

 

[Gaia]

Hi again,
Yes, I am using a VB UserForm.
Here is the code that works:

Worksheets("persons_on_programs").Range(test_address).CopyPicture xlScreen,
xlBitmap ‘( This statement works)

Here is an example on how I have tried to paste the bitmap picture created
above into the user form.
Inside the userform I have a image control/frame or what I should call it.
Here is my code that does not work.

Vise_Bilde.Bilde.Paste

I have tried that statement and all thinkable variants of it, but nothing
works.

BR,
Gaia

 

[Joel]

I'm almost there. I think you have to create a file, then load the file as a
picture. To save the file you need to create a container and then save the
container as a gif file. To make the container create a chart then clear the
chart and then paste the picture. You can then save the chart.

I haven't found a better way than this. My problem is a can't get the
picture to display after I paste it.


Sheets("GIFcontainer").Activate
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Worksheets(1).Range("A1")
ActiveChart.Location Where:=xlLocationAsObject, _
Name:="GIFcontainer"
ActiveChart.ChartArea.ClearContents
Set containerbok = ActiveWorkbook
Set Container = ActiveChart

Worksheets("data").Range("b1:d3").CopyPicture Format:=xlBitmap
Container.Paste
Container.Export Filename:="c:\temp\pict.gif"
UserForm1.Image1.Picture = LoadPicture("c:\temp\pict.gif")