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" wrote in message
...
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 D3:D62 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