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 Whe=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")
"Gaia" wrote:
Hi again,
Yes, I am using a VB UserForm.
Here is the code that works:
Worksheets("persons_on_programs").Range(test_addre ss).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" wrote:
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" wrote:
Hi Joel,
Thanks for the quick replay.
But my problem is that I use shared Excel, hence I cant 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" wrote:
Worksheets("data").Range("b1:d3").CopyPicture xlScreen, xlBitmap
Range("K6").Select
ActiveSheet.Paste
"Gaia" wrote:
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 cant paste it into a form.
Anybody who could give me a hint?