Pictures in Excel

[MOB]

Long shot I think.............but is it possible to have a macro that shows a certain picture based on a cell value?

So on another sheet I would have a list of 20 football teams, with their logo's in GIF format next to them.

Then on the main sheet, if I type in "team A" into a call, their logo appears next to the name?

 

[MorganO]

This is not so hard. If you add your pictures to Sheet 2 and rename them with your Team Names you can use the following VBA code (pasted into Sheet1) to add the pictures to Sheet1 when you enter the team name into a cell:

Private Sub Worksheet_Change(ByVal Target As Range)
'Compare the names of all objects on Sheet2 against the Target and Paste
'a copy of the picture onto Sheet1
Dim sp As Shape
For Each sp In Worksheets("Sheet2").Shapes
 If Target.Value = sp.Name Then
   sp.Copy
   Worksheets("Sheet1").Paste
 End If
Next
End Sub

I will leave it you you to align the pictures properly when they are pasted onto Sheet1.

Take care.

Owen

 

[MOB]

Thanks!!

 

[Sneech#7]

Another possibility might be to have all the logos resident on the sheet in question and have your macro set all the shapes' visible property to false except the one that is entered - set that one to true.

e.g. ActiveSheet.Shapes("giants").Visible = False

 

[MorganO]

-Deleted Duplicate Post-