Images in to worksheets
Images in to worksheets
(OP)
I have a picture in an Image in my UserForm.
I want to take this picture from the Image and insert it in a certain place on my active worksheet.
I have tried to use the following code but it does not work:
ws2.Pictures.Insert (Image4.Picture)
where ws2 is a my worksheet.
Does some one know how this can be done?
I want to take this picture from the Image and insert it in a certain place on my active worksheet.
I have tried to use the following code but it does not work:
ws2.Pictures.Insert (Image4.Picture)
where ws2 is a my worksheet.
Does some one know how this can be done?
Talk To Other Members
RE: Images in to worksheets
i dont know if it is what you are looking for but see attachment
RE: Images in to worksheets
Your attempt is reasonable. It is not working because, as deceptive as the macro recorder is, .Pictures is actually NOT a subclass contained within the worksheet object. Shapes, however, are.
If you set the picture to an object then you can mess with it after you add it, as follows:
CODE
Dim picMyPicture As Shape
Set wksMySheet = Worksheets("sheet1")
Set picMyPicture = wksMySheet.Shapes.AddPicture(Filename:="C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Winter.jpg", linktofile:=msoTrue, savewithdocument:=msoTrue, Left:=100, Top:=100, Width:=200, Height:=200)
picMyPicture.Flip msoFlipHorizontal
Or if you just want to add it and not worry about it then you can use the following:
CODE
Set wksMySheet = Worksheets("sheet1")
Call wksMySheet.Shapes.AddPicture(Filename:="C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Winter.jpg", linktofile:=msoTrue, savewithdocument:=msoTrue, Left:=100, Top:=100, Width:=200, Height:=200)
I used the Call method so that I can specify which parameters are which. Makes it easier for myslef, and my coworkers to read it later.
-JTBorton
Well, You can try banging your head against the wall, but you just end up with lost-time injuries and damaged equipment. [M. Passman]