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

  • Thread starter Thread starter Gaia
  • Start date Start date
G

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?
 
Worksheets("data").Range("b1:d3").CopyPicture xlScreen, xlBitmap
Range("K6").Select
ActiveSheet.Paste
 
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
 
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?
 
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
 
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")
 
Back
Top