Picture scroll with active cell

[John]

Hi Everyone
I've taken John McGimpsey's code and modified then for my needs.
What I'm trying to do is, have the picture follow along with the active cell.
I 've got a list of names from B3:B62 and D362 that matches a picture.
Now the picture are staying at the top, and would like them to scroll down with
the selection.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oPic As Picture
Me.Pictures.Visible = False
For Each oPic In Me.Pictures
If oPic.Name = ActiveCell.Text Then
oPic.Visible = True
" This line not working >>>" oPic.Top = ActiveCell.Offset(3, 3)
oPic.Left = 600
Exit For
End If
Next oPic
End Sub

Hope someone can help me
Regards
John

 

[JLGWhiz]

I have not worked with picture objects, but have you tried using the TopLeft
property? It might do what you want. Check it out in VBA help.

 

[John]

Hi JLGWhiz
Thanks for your help, i tried it out but can't get it to work. I don't know
anough about VBA.
Regards
John

 

[John]

Hi Everyone
Does anyone have any ideas, anything I could try.
Plus does anyone know how many Pictures can be used, It seem to stop at 62.
Regards
John