Sean,

You must have joy! Here is a sample that I used everytime the cursor moved,
I check if it is an a cell that contains the name of an picture (and was in
a certain range called "Images"). Then (the part you really care about) I
used the LOADPICTURE method off of my Image control (named picImage) to
change the picture.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo Exception

If Not Intersect(Target, Target.Worksheet.ListObjects(1).Range) Is
Nothing Then
With Me.picImage
.Picture = LoadPicture(ThisWorkbook.Path & "\Images\" &
Intersect(Target.EntireRow, Range("Images")).Resize(1, 1).Value)
.Visible = True
End With
Else
Me.picImage.Visible = False
End If
Finally:
Exit Sub

Exception:
Me.picImage.Visible = False
Resume Finally

End Sub

______________

I hope joy is reestablished....

--
Charles
www.officezealot.com


"Sean Benson" wrote in message
...
I am trying to control various images in excel, showing a
different image depending on the value in some cells.
However I am having problem dynamically setting the image
object I wish to refer to. For example, the following
will work:

Dim imgtest As Image
Set imgtest = ThisWorkbook.Sheets(1).Image1
Image1.Picture.... etc

But when I try to set Image1 dynamically it won't work:

Dim imgtest as image
set imgtest = ThisWorkbook.sheets(1).Image("Image" &
intImageCount)

where intImageCount is equal to 1.

Also if I try to dim imgtest as shape and set using shape
("Image" & intImageCount) I also have no joy.

Any help appreciated.

Cheers

Sean