Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automatically adding image extension ".jpg" to end of image name | Excel Discussion (Misc queries) | |||
image url | Excel Discussion (Misc queries) | |||
It is possible to vlookup an image? | Excel Discussion (Misc queries) | |||
Hyperlink to an image in other worksheet, displaying entire image. | Excel Worksheet Functions | |||
BEFORE SAVE IMAGE | Excel Worksheet Functions |