×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Images in to worksheets

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?
 

RE: Images in to worksheets

MarkusLAndersson,

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 wksMySheet As Worksheet
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]

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members! Already a Member? Login



News


Close Box

Join Eng-Tips® Today!

Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.

Here's Why Members Love Eng-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close