Copy from Paint to selected cell in Excel

[dblwright]

Hi Everyone,

I'm a long time Excel user, but I have a really simple problem that drives me crazy. In my job I sometimes put a lot of screen shots into Paint and then copy and paste just the seciton I want into Excel. I do this to document certain things when I am doing a cost estimate. It works great except for it always pastes it to the very top of the Excel sheet, not matter what cell I have selected. So, I paste in, then drag down several pages to get it position where I want it. Is there some option that I need to change?
I'm sure is going to be a really simple fix.

Thanks
JoAnn

 

[ndendrinos]

Since no one has given you an answer maybe you will consider this:
An alternative approach (which has been mentioned here I believe) is to include the photograph as a cell 'comment'.

On the cell, right click and select Insert Comment.
Right click on the margin of the comment and select Format Comment
Select the Colors and Lines tab, and on the Color dropdown select the Fill Effects item .
This then gives a Picture tab which allows you to select the appropriate picture. Personally, I always Lock the picture aspect ratio, and generally, you'll want to resize the comment block to show the full picture.

To view the pictures, the user just has to mouse over the cell.

 

[RobMatthews]

And to do what ndendrinos suggested, i wrote/kludged this code: (gotta have the screenshot saved as a file tho...)

Sub AddPicInComment()
Dim sfilename As String
sfilename = Application.GetOpenFilename("Image Files (*.png; *.jpg; *.bmp), *.png; *.jpg; *.bmp")
If sfilename = "False" Then
    GoTo 9999
End If
On Error Resume Next
With ActiveCell
    .ClearComments
    .AddComment
    .Comment.Visible = True
    .Comment.Shape.Select True
    Selection.ShapeRange.Fill.UserPicture sfilename
    Selection.ShapeRange.ScaleWidth 6, msoFalse, msoScaleFromTopLeft 'Change Number to suit Width
    Selection.ShapeRange.ScaleHeight 8, msoFalse, msoScaleFromTopLeft 'Change Number to suit Height
    .Comment.Visible = False
End With
9999:
End Sub