Transfering one image to another image
 

Hello everyone.

I've a bit of a challenge for this one.

The Setup.

I have a employee database that will take alot of general information
from various pages within a workbook and I use a lot of concatenate
functions to summarize an individual employee file.

I want to be able to have my data entry person hit a "Transfer" button
that will take all the summary data from one "section" of the
worksheet to another pre-defined section within the same sheet. This
is a "Holding" area that will allow up to 3 employee records to be
seen at the same time, of which the user could print 1, 2 or all 3 of
the records. With each record there is a picture.

I've managed to get all but the IMAGE transferred.

Does anyone know how to get one image (an employee picture) to another
image without having
to do this manually?

I had scoured this news group for a previous answer that allowed me to
have a picture appear when a cell is clicked.

Below is the code that I am using for both the image transfer and for
the move information transfer.

**************
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Image1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Columns.Count 1 Or Target.Rows.Count 1 Then Exit Sub

If Sheets("Emp_Summary_Info").Cells(Target.Row, Target.Column) < ""
Then
Image1.Picture =
LoadPicture(Sheets("Emp_Summary_Info").Cells(Targe t.Row,
Target.Column))
On Error Resume Next
End If
Image1.Visible = True

End Sub

'For the transfer of data

Public Sub ToSecondHold()

Worksheets("Emp_Summary_Info").Range("A43").Value = Range("A9").Value
Worksheets("Emp_Summary_Info").Range("H44").Value = Range("H10").Value
work....etc

'Just have to figure out how to copy the picture over from one image
placement to another!

End Sub

Any ideas would be appreciated. Thanks!

-LT