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

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

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
"JLGWhiz" wrote in message
...
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

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
"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