Add a picture to a cell that only appears on click

[mikef255]

I want to add a picture to a cell that will appear when the user clicks on
the "picture" cell. For example, a list of parts, that shows the picture of
the part when it is clicked on.

 

[Peter T]

I assume you have already named your pictures as the part number as in th
"picture cells"

Try the following in the sheet module (rt-click sheet tab, view code).
Change C3:C11 to the range of your picture cells, a named range perhaps.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pic As Picture
On Error GoTo errExit
Me.Pictures.Visible = False
If Not Intersect(Range("C3:C11"), Target(1)) Is Nothing Then
Set pic = Me.Rectangles(Target(1).Value)
If Not pic Is Nothing Then
With Target(1)
pic.Left = .Left + .Width - 2
pic.Top = .Top + 2
pic.Visible = True
End With
End If
End If
errExit:
End Sub

Regards,
Peter T

 

[mikef255]

I assume you have already named your pictures as the part number as in th
"picture cells"

Try the following in the sheet module (rt-click sheet tab, view code).
Change C3:C11 to the range of your picture cells, a named range perhaps.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pic As Picture
On Error GoTo errExit
Me.Pictures.Visible = False
If Not Intersect(Range("C3:C11"), Target(1)) Is Nothing Then
Set pic = Me.Rectangles(Target(1).Value)
If Not pic Is Nothing Then
With Target(1)
pic.Left = .Left + .Width - 2
pic.Top = .Top + 2
pic.Visible = True
End With
End If
End If
errExit:
End Sub

Regards,
Peter T






Thanks Peter, That worked perfect!!!